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CHAPTER 1. INTRODUCTION. 


There has been a rapid growth in the number of interconnected, and often 
remotely distributed computing sites. This growth has not been 
accompanied by a corresponding growth in the necessary skills required to 
maintain and control such interconnected system networks. 


Control over both the levels of software installed and the implementation 
standards used at each site has become difficult. In many cases this is 
further complicated by the use of different operating eyecare within the 
same network. 


A centrally located software maintenance team is often the best and 
sometimes the only way to provide the skills and controls to address the 
problems generated by the installation of such networks. 


The use of a central site team is recommended and this guide demonstrates 
the use of appropriate maintenance tools to meet the team's requirements. 
These requirements include typical data processing maintenance such as 
updating of network definitions, job streams and application program 
maintenance. In addition, traces and dumps need to be transferred to the 
central site for problem determination. 


NON-NETNORK RELATED DATA 


Many of the techniques for data transfer described in this guide are 
equally applicable to non-networking related activities. These include: 


® operating system maintenance, 
° distribution of user programs, 
e maintenance of operating procedures, 


° transfer of data sets including VSAM, and 


° remote problem determination. 


SUMMARY OF DOCUMENT CONTENTS 


The document is structured into the following chapters: 


e "Chapter 2. Approaches to Remote Maintenance™ on page 3 provides an 
overview of the alternative maintenance methods available. 


e "Chapter 3. Central Site Network Maintenance" on page 9 sets out the 
philosophy of central maintenance. 


° "Chapter 4. Maintenance Tools” on page 13 lists the products required 
for maintenance together with short description of each product. 


e "Chapter 5. MVS Host to MVS Sub-Host" on page 17 describes in detail 
the products recommended for use in the MVS-MVS environment. 


e "Chapter 6. MVS Host to VSE Sub-Host" on page 25 describes in detail 
the products recommended for use in the MVS-VSE environment. 


e "Chapter 7. VSE Host to VSE Sub-Host"™ on page 39 describes in detail 
the products recommended for use in the VSE-VSE environment. 


° The appendices contain the definition tables and other coding used by 
the examples contained in the body of the document. 
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SOFTWARE ENVIRONMENT 


The precise levels of software in use during this project varied 
continuously, since a Systems Centre is by its nature an experimental 
environment. | -_ 7 7 | 


In order to give an indication of the products in use, the major products 
and their releases are as follows: 


° MVS/SP-JES2 Version 1 Release 3 (containing NJE), 

e TSO/System Extensions, 

° VSE Version 1 Release 3, 

e POWER Version 2 Cexcept JEP which used POWER Version 1), 


e ACF/VTAM Version 2 Release 1 Cexcept JEP which used Version 1 Releas 
3 with MSNF), | 


© ACF/NCP Version 2 Release l. 
Other products used include NCCF, OCCF, CDNDT, FTP, and JEP. 


NOTE ON THE SAMPLE MATERTAL 


The project work for this book was performed at the Raleigh International 
Systems Centre (RISC), an IBM World Trade Systems Centre. 


The examples such as JCL listings used in this guide are specific to the 
levels of software and network configuration in use at RISC at the time of 
writing. Material should not be used without first checking against both 
installation standards and the appropriate product manuals. 
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CHAPTER 2. APPROACHES TO REMOTE MAINTENANCE 


The approaches described here although oriented to physically remote 
sites, are often equally applicable to interconnected systems within the 
same physical location. 


ORGANISATION 
There are a number of reasons why an organisation should adopt a central 
site approach to system and network maintenance, amongst these being: 


e the high cost of obtaining and distributing expensive and often scarce 
skills to remote sites, 


@ the need for good change control, 


e the need for consistent standards across the network, and maybe 
different operating systems. 


The case for central site maintenance teams will strengthen as networks 
grow in size and complexity. 


CONTROL OF REMOTE SITES 


There are basically two ways to implement central site control to maintain 
remote sites. These are Direct and Central Site maintenance. 


This guide recommends the Central Site method as the standard approach to 
maintenance for reasons which follow. 


Direct Maintenance 


In this approach the central site team maintains the remote (sub-host) 
site re logging onto that system's maintenance tool directly CFigure 1 on 
page : 
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LOCAL CENTRAL REMOTE REMOTE 

DATASETS SITE | SITE DATASETS 

FULL HOST SUBHOST FULL 

SOURCE & FACILITY FACILITY SOURCE & 

OBJECT | = _~ eeeee>OBJECT 
ACF/VTAM ACF/VTAM 


/ 37x 5 
/ ACF/NCP 
eo0e00060eeeeeeeeeeeeeeeeeeeoeee8e 
gal 
@ 
@ 


om @ 
CENTRAL SITE 
MAINTENANCE TEAM 


Figure 1. Direct maintenance of sub-host data: Central site team 
logged directly on to sub-host maintenance tool to update 
remote datasets. 


e Advantages: 
= change will be made immediately. 
° Disadvantages: 
= full source needs to be duplicated at the sub-host, 
= maintenance function has to be repeated in full for each sub-host, 


oe separately maintained copies of system data will certainly lead 
to incompatibilities between what should be duplicate data, 


_ more difficult to enforce change management, 


_ sub-host performance may be degraded by full maintenance 
procedures, 


_ testing may not be able to be done before updating because of a 
lack of either resources or modification of the link being used 
for maintenance, 


= extensive work may need to be done at the remote site both during 
initial installation and to correct errors made as a result of the 
use of untested code. 


Central Site Maintenance. 


In this case the central site team maintains the necessary data at the 
Se site Chost) and distributes it to the sub-host (Figure 2 on page 
). | 
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LOCAL CENTRAL SITE REMOTE REMOTE 

DATASETS eeeeevececcccos SITE DATASETS 

FULL HOS T SUBHOST SUBSET 

SOURCE & FACILITYe FACILITY SOURCE & 
— e comme 


OBJECT < eeeee>OBJECT 
ACF/VTAMe ACF/VTAM 
e5 


‘ee 


37x 5 37 5 
ACF/NCP ACF/NCP 


CENTRAL SITE 
MAINTENANCE TEAM 


Figure 2. Maintenance of sub-host data on host machine: Central 
site maintenance team log on to host maintenance tool and 
update the master copy of the sub-host data. The updated 
and tested data is then sent to the sub-host by a file 
transfer program. 


e Advantages: 


= easy change management through the use of a single master copy of 
the data to be distributed, 


~ changed data can be tested in a non-critical environment at the 
host, 


_ testing resources typically exist at the host site, 
= backout and recovery procedures can be more easily tested, 
_ the amount of data distributed is kept to a minimum, 


= the use of pre-assembled and pre-linked code reduces’7 the 
maintenance load at the sub-host, 


- the central maintenance procedures may be adapted to produce a 
comparatively small initial installation package for distribution 
on tape. 


® Disadvantages: 
_ need duplicate datasets at host, 
- automatic procedures may be more complicated to cater for 


variations in data needs between sub-hosts maintained from common 
datasets. 


MAINTENANCE RECONMENDATIONS. 


It 15 recommended that Central Site maintenance is adopted as the standard 
approach to the maitntenance of distributed sub-hosts. Exceptions to this 
rule should be kept to a minimum, deviating only where adherence is 
physically impossible. 


It is also recommended that testing facilities be provided at the host to 


validate changes in data prior to distribution. This testing can often be 
performed in a VM (Virtual Machine) environment where sufficient real 
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facilities do not exist or are not readily available. High performance 
during testing is usually not a consideration. | 


NETNORKING TOOLS SUMMARY 


There are a number of tools available for the distribution of data to 
remote sites, and these are described in more detail in “Chapter 4. 
Maintenance Tools" on page 13. : 


The selection of a particular tool obviously depends on the state of the 
network and the nature of the data being distributed. Figure 3 on page 7 
summarises some of the possible combinations. Guidance to product 
selection under various conditions is given in following chapters under 
the different combinations of host and sub-host operating systems. a 
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Product MVS MVS MVS VSE VSE VSE 
Combinations Host Sub—Host|Host Sub—-Host!/]Host Sub-Host 


TSOVE 
TSO Extensions 


CDNDT 
Cross Domain Network Data Transfer 


POWER 
VSE POWER Version 2 | 


JEP 
Job Entry Program 


Notes: (1) requires NJE 
(2) requires VTAM 
C3) requires POWER Version 2 or JEP/POWER Version 1 
(4) requires POWER Version 1 


Figure 3. Table of Products versus Environments: The combinations 
shown are possibilities but may not be practical under all 
circumstances. 


Type of Data Product Alternative 


Load Module MVS—-MVS CDNDT 
MVS-VSE FTP/PNET (1) 
VSE-VSE FTP/PNET (1) 


MVS-MVS 
MVS-VSE 
1VSE-VSE 


MVS-MVS. 


TSOZE 
FTP/PNET ¢ 
FTP/PNET ¢ 


TSOZE (2) 
MVS-VSE CDNDT (3) FTP/PNET 
VSE-VSE CDNDT (3) FTP/PNET 


vsam {ALD Repro —- then as for Load Modules 


Notes: (1) JEP is an older alternative to PNET 
(2) if the dump is small and easy to reproduce, use NJE directly 
C3) if the dump is small and easy to reproduce, use PNET directly 


Source/ 
Object 1) 
1)] 


Dump/Trace CDNDT 


Figure 4. Types of data versus Environments and products: The first 
product is that recommended by RISC. 
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CHAPTER 3. CENTRAL SITTE NETWORK MAINTENANCE 


This chapter sets out what needs to be done to maintain a network from a 
central host site. The tools for performing these functions are described 
in "Chapter 4. Maintenance Tools™ on page 13, and their implementation in 
specific environments in subsequent chapters. These environments are 
MVS/SP and DOS/VSE in varying combinations. 


The network environment is assumed to be based solely on IBM's Systems 
Network Architecture (SNA). The general network layout showing the 
sub-areas and operating systems used is shown in Figure 5. 


RALVSMV3 RALYDPD2 
MVS/SP MVS/SP 


Sub-area il Sub-area 10 


3705 
NIGBF3F 
s—a. 14 


3705 3705 
NI39F3J N45EF3N 
s-a. 13 s—a. $5 


RALYDPD3 RALVSMV8 
DOS/VSE MVS/SP 


Sub-area 12] Sub-area 21 


Figure 5. Network Overview: Diagram of a section of the network 
used for testing jobs described in this guide 


STANDARDS 


The concept of centrally based maintenance teams implies rigid change 
control. For this to be effective, a set of naming conventions is needed 
to cover the products required at the hosts and sub-hosts, and must cover 
the different operating systems in use. 


As with all standards, the earlier a set of even draft standards can be 
adopted, the easier control becomes as the network expands. An example of 
some networking standards in use at RISC are included in “Appendix A. 
Network Naming Conventions" on page 4/7. 


NETWORK DISTRIBUTED DATA 


As previously mentioned, most of the techni ques described in this guide 
are generally applicable. However, the main purpose of this book is to 
show how a network can be centrally maintained, and so the discussions and 
examples are confined to networking. 


The sorts of data to be maintained at the host and then distributed to the 
sub-host are as follow: 


e VTAM lists: 
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= start-up lists, 
= configurations, 
= application program nodes, 
= cross-domain resources. 
e USS tables, 
e Log mode Tables, . 
° NCP: 
= load module, 
id source, 
= RRT. 
® NCCF definitions, 
e VTAM/NCCF/etc., start-up JCL, 
° JEP or POWER version 2 macro's (DOS/VSE only), 
e Output Listings: 
“= LOGS, 
= traces, 


= dumps. 


DATA STRUCTURE 


It is recommended that the data required at the remote sites first be 
tested at the central site. After testing this data should be placed ina 
set of carefully controlled data sets. The contents of these data sets 
reflect the current production state of the network, except while the 
network 1s physically being updated. 


Members are extracted from the central data sets and transmitted to the 
sub-hosts as required. Often it is easier to replace the whole data set 
rather than individual members, thus ensuring the currency of distributed 
network data. 


An example of the structure of data sets and program libraries used during 
the preparation of this guide follows. 


Central Site Datasets. 


The central site library consists of four data sets. 

The first two qualifiers of these dataset names are the same, these being 
*FLETCH.RCNM’. The first qualifier 'FLETCH' indicates the maintenance 
team, and the second 'RCNM!’ indicates that they contain the data for 
remote communications network management products. 

The third qualifier characterises the contents of the data set as follows: 
® "VTAMLST' contains the macros required by VTAM. 

© "SOURCE® contains JCL and source code. 

° "OBJECT® contains unlinked object such as the NCP stage 2 output. 


® *LINKLIB’® contains linked object such as the NCP load modules. 
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These conventions are used for both MVS and VSE systems. In the latter 
case, 'VTAMLST’ and 'SOURCE’ are user source libraries, 'OBJECT' is a user 
relocatable library, and 'LINKLIB' is a user core image library. 


Remote Datasets 


The conventions used for the distributed datasets exactly parallel those 
used for the centrally held datasets, except for the second qualifier. 


The second qualifier is changed from 'RCNM* to ‘'SAnn', where ‘nn! is the 
VTAM sub-area node number. 
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CHAPTER &. MAINTENANCE TOOLS 


The recommended approach to the maintenance of sub-hosts is the use of 
Central Site maintenance wherever possible. In this approach definitions 
are updated at the host and distributed to the sub-host. For example, the 
sub-host VTAMLST and NCCF definition are updated at the host site, then 
copied and distributed to the sub-host by batch file/job transfer 
programs. 


Various network management products are available for remote maintenance. 
These products provide the ability to transfer data sets around the 
network to meet the requirements for remote maintenance. This includes the 
need to move data sets from sub-host to host such as transaction or other 
application data, and diagnostic and maintenance data sets such as 
ACF/VTAM traces. 


Different combinations of products are used in this guide to meet the 
requirements of the different operating environments. Not all the 
products are required for every environment. The products used in this 
guide to move data around the network are: 


NETWORK JOB ENTRY (NJE) PROGRAN PRODUCT. 


Program Product. Available both as a separate product and as an integral 
part of MVS/SP Program Product, 5740-XYS MVS/SP JES2 version 1 release 2 
and later. 

NJE: Program Number (Cas a separate Program Product) 5798-DAE 

NJE: General Information, GC23-0010 

NJE: Program Description/Operations Manual, SC23-0003 


The JES2 Network Job Entry Facility (NJE) allows selected data sets to be 
transmitted from one MVS system to another. Data sets that can be 
transmitted include jobs, SYSIN and SYSOUT data sets, operator commands, 
and messages. | 


POWER Version 2 Networking CPNET) is an exact VSE functional equivalent. 


CROSS DOMAIN NETHORK DATA TRANSFER (CDNDT ) 


Field Developed Program. Program Number 5798-DAE 
CDNDT: Availability Notice, GB21-2498 
CDNDT: Program Description/Operations Manual, $B21-2499 


Cross Domain Network Data Transfer FDP CCDNDT) is a simple VTAM 
application program allowing data transfer across the network. CDNDT uses 
SNA cross domain APPL to APPL communication to perform its file transfer 
functions. The program is used to transmit problem determination data 
such as abend dumps, traces, error logs, etc. from one SNA node to another 
in the network, as well as the data needed to operate the network. 


CDNDT comes in both VSE and MVS versions and these transmit compatible 
datasets, making the product particularly useful in mixed interconnected 
systems environments. 


In an MVS environment, CDNDT may transfer less than a third. the amount of 
data that NJE transfers when communicating large volumes of printed 
output, such as dumps and traces. This is because NJE transfers data in 
listing format ready to be printed, while CDNDT transfers raw data prior 
to output formatting. 


CDNDT does have some limitations, for example it is only able to send or 
receive one sequential dataset or member of a partitioned dataset ata 
time. If there are ten members to be transferred, the CDNDT job (which 
consists of a send-CDNDT job at the host and a receive-CDNDT job at the 
sub-host), must be scheduled ten times. 
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Under MVS datasets may be concatenated at run time, but the data still 
arrives at its destination as a single dataset. In an MVS to VSE 
environment this concatenation of data sets is useful for wrapping VSE job 
control around data. If however, the requirement is for the transmitted 
data to be split into the original members, then further user processing 
is required. | 


Under VSE only disk or tape data sets can be created or transmitted. This 
requires that print datasets must first be stored as a disk or tape file. 
JCL changes are normally required and maybe even changes to programs. 


Caution - Pacing Value 


Usually dumps and traces generate large volumes of data to be transmitted 
through cross domain links. Neither CDNDT nor NJE programs are concerned 
with the capacity of the network. Therefore if you do not specify 
appropriate ‘PACING’ values for an NJE or CDNDT application, NCP will soon 
enter slowdown causing other transaction response times to be increased. 
So a PACING value must be specified for both sides of NJE and CDNDT 
application definitions. VPACING is specified on the APPLID statement. 
PSNDPAC and SSNDPAC are pacing counts that can be added to the mode table 
used for the session. 


POHER VERSION 2 


Soares Product Available as a standard, integral part of the VSE POWER 
roduct. 

POWER: Program Number 5666-273 

POWER: Networking User's Guide, $C€33-6140 


POWER Networking (CPNET) is a standard non-optional feature of POWER 
Version 2. It allows selected data sets to be transmitted from one 
computer system to another, including MVS. Data sets that can be 
transmitted include jobs, SYSIN and SYSOUT data sets, operator commands, 
and messages. 


PNET is fully compatible with NJE, making MVS/VSE dialog very much easier. 
PNET transfers both input and output datasets between systems on the same 
basis as NJE. For example, a punch file received by PNET is placed on the 


receiving system's punch queue and not the reader queue, as is the case 
with JEP. 


JOB ENTRY PROGRAM/FILE TRANSFER (JEP/FTP ) 


Program Products. Program Numbers 57466-XE6 CJEP), 5748-XE8& CFTP) 
JEP/FTP: Program Reference and Operations Manual, SH12-5331 


The Job Entry Program and File Transfer Program (JEP/FTP) are Program 
products designed to transfer jobs and files between interconnected 
systems. | | 


JEP 


JEP is an addition to VSE/POWER, and provides job transmission and receipt 
to and from an SNA network. It communicates with both VSE/POWER Remote 
Job Entry, or with Job Entry Subsystem/Network Job Entry. It is 
functionally replaced by POWER version 2. | 
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FTP 


FTP is a batch program that is run on either VSE or MVS. Its function is 
to change data sets into 80 byte records to allow transmission by NJE, 
JEP, or POWER version 2. 


FIP is designed for job/file transmission between VSE and MVS, however FTP 
can also be used between two MVS systems. 


FIP has basically four functions which are 'JOB IN‘, "JOB OUT', ‘FILE IN’* 
and ‘FILE OUT". All four functions are used to transfer files or jobs 
between MVS and VSE. In the case between two MVS systems, only the 'JOB 
IN' function of FTP is used. 


The FTP function of "JOB IN' is the most useful. Input is read from a 
sequential file and transferred to a punch file without processing. This 
punch file is designed to be directed to a remote VSE JEP program as shown 
in Figure 29 on page 3S37and Figure 30 on page 37. It can also be directed 
to a JES2 internal reader making it useful for MVS and VSE POWER version 2 
sub-hosts. 


From an MVS host to an MVS sub-host, the input data which consists of 
SYSIN data, the partitioned data set members concatenated with a IEBUPDTE 
utility job to update members of VTAMLST or NCCF definition as shown in 
Figure ll on page 21. By inserting an NJE '/XROUTE’ control statement in 
the job control language, the IEBUPDTE job is routed to the sub-host and 
updates the sub-host network definition. The results of IJIEBUPDTE 
execution are routed back to the host system. 


For a VSE POWER version 2 sub-host from a MVS host, the VSE '"MAINT!® 
program is used instead of the IEBUPDTE, and the 'XMIT’" control statement 
replaces the ‘'/* ROUTE XEQ* statement. Figure 26 on page 34 shows an 
example. 


The file transfer capabilities are only of use in VSE and are better 


performed by CDNDT. For examples see CNM/Managing Interconnected Systems 
as listed in "Chapter 8. Bibliography" on page 43. 


OPERATOR COMMUNICATIONS CONTROL FACILITY COCCF ) 


VSE 


Program Product. Program Number 5746-XC5 
OCCF: Availability Notice, GB 
OCCF: Program Description/Operations Manual, SB 


MVS 


Program Product. Program Number 5665-288 

OCCF: Availability Notice, GC24-5227 

OCCF: General Information, GC24-5225 

OCCF: Installation and Operation Manual, $C24-5226 


The Operator Communications Control Facility (OCCF) provides' the 
capability to operate either a VSE or MVS system through the network. As 
well as the ability to enter system commands, system messages are routed 
back to the OCCF operator in the normal manner for a console. 
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TS 


eeennerontD 


TSO has the ability to submit jobs to the system and to get notification 
of job completion from the system. This function is useful in submitting 
jobs to remote MVS sub-hosts. When the job is submitted from TSO to the 
remote sub-host, the TSO user is notified: 


e when the job leaves the host system. 
° when the job execution ends at the sub-host. 


° when the SYSOUT data set arrives at the host system. 


TSO EXTENSIONS (TSO/E} 


Program Product. Program Number 5665-285 
TSOZE: Availability Notice, GC28-1123 
TSOYE: General Information, GC28-1061 
TSO/E: IDTF User's Guide, $028-1104 


The TSO/E Interactive Data Transmission Facility CIDTF) allows the 
transmission and subsequent receipt of datasets and messages from one TSO 
user to another. These users may be on the same or separate systems 
connected via the network. 


The dataset is unloaded by the 'TRANSMIT" command and restored to it's 
original format when received by the "RECEIVE' command. A selection of 
members or the whole dataset may be transmitted. | 


ISAM, VSAM, user labelled or keyed datasets are not handled directly. 


SPOOL DISPLAY AND SEARCH FACILITY (SDSF) 


Field Developed Program. Program Number 5798-DGN 
SDSF: Availability Notice, GB21-2865 
SDSF: Program Description/Operations Manual, $B21-2866 


The Spool Display and Search Facility (SDSF) is a system management aid 
which allows the user to analyse and control (Con an authorised basis) an 
MVS/JES2 based system... 

Amongst its capabilities, it enables a user to interactively browse the 
MVS system log and JES2 spool queues, including those currently active. 
Selective printouts of the material being browsed is possible. 


SDSF is either executed directly under TSO or via ISPF menus. 
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CHAPTER 5. MVS HOST TO MVS SUB-HOST 


The environment used as an example consists of two MVS/SP systems 
interconnected through the MSNF feature of ACF/VTAM. This general 
environment is tllustrated in Figure 6. 


CENTRAL MVS/SP-JES2 MVS/SP—-JES2 REMOTE 

DATASETS HOS T S$ UB-HOST DATASETS 

"FLETCH NODE-RALVSMV3 NODE—-RALVSMV8 *FLETCH 

~RCNM. -SA11." 
VTAM SUB-AREA 11 VTAM SUB-AREA 10 


Figure 6. MVS Host to MVS Sub-Host: General layout of the MVS to 
MVS systems used as an example of MVS Central Site 
maintenance of Remote MVS system 


Various combinations of file transfer products are use to show how the 
sub-host is maintained. 


The approach taken jis that of Central Site maintenance as described 
earlier ("Central Site Maintenance." on page 4). 


Central maintenance of a remote MVS sub-host by an MVS host is not 
technically difficult, the most important aspect being the adoption of 
this principle of maintenance. 


MAINTENANCE PRODUCT SELECTION 


This section comments on some of the products in use in the MVS-MVS remote 
maintenance environment. Refer to "Chapter 4. Maintenance Tools" on page 
13 for the product summaries. 


Data Transfer 


By far the most convenient and easy to use product is the IDTF facility of 
TSOVExtensions. It also appears to be a reasonably quick and efficient 
method of data transfer. 


Data is directly transmitted and received by the appropriate TS0 
maintenance user ID. The data transmitted is either a complete sequential 
or partitioned dataset, or selected members of a PDS. 


The only point to remember is that it is not possible to selectively 
receive members sent together in the same transmission. 


Other products used were FTP in conjunction with NJE, and CDNDT. Both 
these options worked well. 


CDNDT is better for large volumes of data since it is more efficient with 
its larger blocksizes and checkpointing at the record level. 


FTP/NJE is more convenient for a number of small jobs since it uses the 
spooling system and requires no special transmission jobs to be scheduled. 
The "JOBIN' function of FTP is used to create a concatenated job stream 
and then NJE routes this job to the sub-host for execution. 
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NJE is used by itself when data manipulation during job creation is 
minimal. 


Interactive Subsystems 


TSO is used as both the host and sub-host maintenance tool. 


Network operation and control is performed by NCCF, and OCCF is used where 
direct system intervention is required, such as to retry CDNDT 
transmissions. 


SDSF is a convenient tool to view job output and is included in the TSO 
systems in use in RISC. 


NCP LOAD MODULES 


It is recommended that each operating system is able to load at least its 
adjgacent 3705/3725 davices. This requires that the relevant NCPs be 
distributed to each remote site in both source and load format. 


Either CDNDT or TSO/Extensions are suitable for these purposes, the use of 
the latter method is shown in the example which follows. 


TSO/Extensions for NCP data 


Operation is very simple: 
1. Log on to the Central Site maintenance TSO user ID. 


2. Issue the 'TRANSMIT' Cor 'XMIT') command followed by the dataset and 
the members being transmitted, Figure 7. In this case an NCP source 
module is being sent together with another member. 


3. Log off the sending ID on the host and Log on to the TS0 at the 
sub~host. 


4. Issue the "RECEIVE command and then the restore parameters when 
prompted (Figure 8 on page 19). 


READY 
xmit ralvsmv8.liberty dataset(rcenm.source) members (n4¢5ef3n jobldtxt) 
14.26.11 TSU 210 SHASP546 FLETCH SYSTEM OUTPUT RECEIVED AT RALVSMV8 CNC00) 
: IEBCOPY MESSAGES AND CONTROL STATEMENTS 
PAGE 0001 


COPY OUTDD=SYS00020,INDD=(CSYS00014,R)) 
SELECT MEMBER=(N45EF3N, JOBLDIXT) 
TEB167I FOLLOWING MEMBER(S) UNLOADED FROM INPUT DATA SET REFERENCED BY SYSOOO1 


IEB154I JOBLDTXT HAS BEEN SUCCESSFULLY UNLOADED 

IEBi54I N&45EF3N HAS BEEN SUCCESSFULLY UNLOADED 

IEB147I END OF JOB -00 WAS HIGHEST SEVERITY CODE 

0 message and 62 data records sent as 2312 records to RALVSMV8.LIBERTY 
READY 


Figure 7. TS0 Transmit selected members to MVS sub-host: The selected members 
are sent from the cataloged dataset (prefixed by the TS0 userid). 
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Dataset FLETCH.RCNM.SOURCE from FLETCH on IBM 


Members: 


N4S5EF3N,JOBLDIXT 


Enter restore parameters or 'DELETE’ or '‘'END'® 
dataset ('fletch.sa21.source'’) 


IEB1671 


IEB154I 
IEB1L54I1 
IEB144I 
018 
IEB149I 
IEB147I 
Restore 


Figure 8. 


IEBCOPY MESSAGES AND CONTROL STATEMENTS 
PAGE 0001 
COPY INDD=(CSYS00019,R)),0UTDD=SYS00018 
FOLLOWING MEMBER(S) LOADED FROM INPUT DATA SET REFERENCED BY SYS0001 


JOBLDTXT HAS BEEN SUCCESSFULLY LOADED 
N45EF3N HAS BEEN SUCCESSFULLY LOADED 
THERE ARE 0000002 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYS00 


THERE ARE 0000000 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY 
END OF JOB -00 WAS HIGHEST SEVERITY CODE 


successful to dataset 'FLETCH.SA21.SOURCE'! 


TSO receive selected partial dataset from host: The transmitted 
members are placed in the previously allocated dataset. 


NCP RESOURCE RESOLUTION TABLES (RRT) AND OTHER LOAD MODULES 


The NCP RRTs, Mode and USS tables required at each sub-host are 
distributed in the same way as the NCPs. 


The only differences between nodes is possibly the sign on format. 


VTAMLST DEFINITIONS 


These definitions are in source code format. They are stored on the 
system as members of a PDS, and as such may be maintained by the 


*TEBUPDTE' 


utility, or replaced directly by some function such as that 


provided by TSO/Extensions. 


If TSO is readily available at the sub-host, then the latter method is 
very convenient. 


TSO/7Extensions for Definitions 


The procedure followed is identical to that shown in "TSO/Extensions for 


NCP data™ 


on page 18, and a further example follows in which a whole 


dataset is transmitted. Figure 9 on page 20 shows the transmission, and 
Figure 10 on page 20, the corresponding receipt. 
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READY 


xmit ralvamvé.hal datasetCrenm.vtamist) 


IEB1671 


TEB1541 
ITEB154¢1 
TEB154I1 
TEB1541 
IEB1541 
IEBI54I 
ITEB1541 
TEB1541 
TEB1541 
IEB147I1 


READY 


Figure 9. 


READY 
receive 


PAGE 0001 
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TEBCOPY MESSAGES AND CONTROL STATEMENTS 


COPY OUTDD=SYS00009, INDD=((SYS000035, R)) 


FOLLOWING MEMBER(S) UNLOADED FROM INPUT DATA SET REFERENCED BY SYS0000 


APPCON12 HAS 
ATCCON12 HAS 
ATCSTROO HAS 
A1OCDN HAS 
A12CDN HAS 
Al2ciIcs HAS 
A12JEP HAS 
A12TAF HAS 
RL1CDN HAS 


BEEN 
BEEN 
BEEN 
BEEN 
BEEN 
BEEN 
BEEN 
BEEN 


BEEN 


SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 


UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 
UNLOADED 


END OF JOB -00 WAS HIGHEST SEVERITY CODE 
0 message and 12 data records sent as 142 records to RALVSMV8. HAL 


TSO transmit to MVS sub-host: 


TSO userid) 


The cataloged dataset (prefixed by the 


is sent in it's entirety. 


Dataset FLETCH.RCNM.VTAMLST from FLETCH on IBM 


Enter restore parameters or 'DELETE'® 
dataset(sa21.vtamlst) volumeCmlllbl) new 


IEB1671 
7 - 


TEB1541 
IEB154I1 
IEBI54I1 


FOLLOWING MEMBER(S) 


APPCON12 HAS 
ATCCONI2 HAS 
ATCSTROO HAS 


BEEN 
BEEN 
BEEN 


or 


PAGE 0001 


SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 


"END’ 
IEBCOPY MESSAGES AND CONTROL STATEMENTS 


COPY INDD=C(SYS00007,R)),0UTDD=SYS00005 
LOADED FROM INPUT DATA SET REFERENCED BY SYS0000 


LOADED 
LOADED 
LOADED 


BEEN 
BEEN 
BEEN 
BEEN 


LOADED 
LOADED 
LOADED 
LOADED 
LOADED 


TEB1541 


A10OCDN HAS 
Ai2CDN HAS 
Al2ciIcsS HAS 
A12JEP HAS 
A1L2TAF HAS BEEN 
R11CDN HAS BEEN 
THERE ARE 0000001 


THERE ARE 0000000 


SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY 
SUCCESSFULLY LOADED 

UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYS00 — 


UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY 


ITEB1471 
Restore 


END OF JOB -00 WAS HIGHEST SEVERITY CODE 
successful to dataset 'SA21.VTAMLST' 


not allocated 
specified at 


of a complete dataset: The dataset is 
step and so is) allocated to the volume 


TSO receive 
prior to this 
this time 


Figure i0. 


Two further alternatives exist if the sub-host definitions are updated in 
an off-line fashion. CDNDT is used to transmit a file containing 
concatenated data and JCL, or FTP 1s used in conjunction with NJE to make 
use of standard spooling facilities. CDNDT is cumbersome for the large 
number of small files which constitute the VTAM definitions, and so the 
FTP method is preferred when TSO is not convenient at the sub-host. 
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With NJE for VTAM Definitions 


is used to compose a job stream made up of JCL and members of the 
ral site maintenance PDS. A number of members may be included in one 
the example which follows has two. 


TSO is used to submit the JCL to the JES2 at the host (Figure 11). 


The FIP "JOBIN’ creates a second jobstream including the data from the 
master copies of the source data, and this punched to the internal 
JES2 reader of the MVS host. Figure 12 on page 22 shows the output of 
the FTP jobstep. 


The '/*XROUTE XEQ" JCL statement routes the following JOB CFLETCHB), to 
the sub-host for execution. Figure 13 on page 23 shows the output 
from the job executed at the sub-host. 


FLETCHA JOB MSGCLASS=0,CLASS=A,MSGLEVEL=1,NOTIFY=USER 
ROUTE PRINT RALYDPD3.FLETCHER 
* THIS JOB TRANSFERS CDNDT APPL AND CDRSC DEFINTION FROM OS TO OS 


FTPJOBN EXEC PGM=DVGXJIN 

SYSPRINT DD SYSOUT=% 

DVGPR DD SYSOUT=*, DCB=(LRECL=132,BLKSIZE=132,RECFM=F) 
DVGPU DD SYSOUT=CA,INTRDR),DCB=(BLKSIZE=80,RECFM=F) 
DVGRD DD DATA, DLM=XX 

FLETCHB JOB MSGCLASS=A,CLASS=A,MSGLEVEL=1 

ROUTE XEQ RALVSMV8 


ROUTE PRINT RALYDPD3.FLETCHER 
EXEC PGM=IEBUPDTE,PARM=NEW 
SYSPRINT DD SYSOUT=A 
SYSUT1 DD DSN=FLETCH.SA21.VTAMLST, 
VOL=SER=WTLIB1, DISP=SHR,UNIT=3330-1 
SYSUT2 DD DSN=FLETCH.SA21.VTAMLST, 
VOL=SER=-WTILIB1,DISP=SHR,UNIT=3330-1 
SYSIN DD *,DLM=XX 
ADD LIST=ALL,NAME=A10CDN 
NUMBER NEW1=10,INCR=10 


DD DSN=FLETCH.RCNM.VTAMLSTCA1LOCDN),DISP=SHR 
DD *, DLM=XX 

ADD LIST=ALL,NAME=R11CDN 

NUMBER NEW1=10, INCR=10 


DD DSN=FLETCH.RCONM.VTAMLSTCRIICDN),DISP=SHR 
DD *» DLM=XX 
ENDUP 


gure 11. FTP JOBIN used for MVS-MVS file transfer.: This example 

: shows the FTP input job control statements, the output 
of FTP is input to the internal reader of JES2. The 
output of this second job is in turn submitted to the 
JES2 internal reader of the sub-host defined in the 
"*/XROUTE' NJE statement. The second '/XROUTE' statement 
transfers the printout from the sub-host to a third node 
defined to NJE. 
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2 JOB LOG ~- SYSTEM SA11 -- NODE 


JES 
15.25.57 JOB 71 SHASP373 FLETCHA STARTED - INIT A - CLASS A - SYS: SA11 
15.26.10 JOB 71 FLETCHA FTPJOBN DVGXJIN 0000 


15.26.10 JOB 71 $HASP395 FLETCHA ENDED 
<a JES2 JOB STATISTICS ------ 
24 FEB 83 JOB EXECUTION DATE 
34 CARDS READ 
53 SYSOUT PRINT RECORDS 
0 SYSOUT PUNCH RECORDS 
0.22 MINUTES EXECUTION TIME 
77FLETCHA JOB MSGCLASS=0, CLASS=A,MSGLEVEL=1,NOTIFY=USER 
*¥*¥*XROUTE PRINT RALYDPD3.FLETCHER 
**¥*% THIS JOB TRANSFERS CDNDT APPL AND CDRSC DEFINTION FROM Os TO OS 


~~ 


2 //FTPJOBN EXEC PGM=DVGXJIN 

3 —S/SYSPRINT DD SYSOUT=x 

4 //DVGPR DD SYSOUT=*,DCB= (LRECL= 132,BLKSIZE=132,RECFM=F) 
5 //DVGPU DD SYSOUT= CA, INTRDR) ,DCB= (BLKSIZE= 80,RECFM=F) 

6 — S/DVGRD DD DATA, DLM=XX 

7 7 DD DSN=FLETCH.RCNM. VTAMLSTCALOCDN) , DISP=SHR 

8 /7 DD * , DLM=XX 

9 47 DD DSN= FLETCH.RCNM.VTAMLSTCRIICDN) ,DISP=SHR 
10 7 DD ¥, DLM=XX 

/7/ 


IEF236I ALLOC. FOR FLETCHA FTPJOBN 

IEF237I JES2 ALLOCATED TO SYSPRINT 

TEF2371I JES2 ALLOCATED TO DVGPR 

IEF237I JES2 ALLOCATED TO DVGPU 

IEF2371 JES2 ALLOCATED TO DVGRD 

TEF14¢2I FLETCHA FTPJOBN - STEP WAS EXECUTED - COND CODE 0000 


IEF2851 JES2.J0B00071.500105 SYSOUT 
IEF285I JES2.J0B00071.S00106 SYSOUT 
IEF285I JES2.J0B00071.$00107 SYSOUT 
IEF2851 JES2.J0B00071.510101 SYSIN 
TEF285I1 FLETCH.RCNM.VTAMLST KEPT 
IEF2851 VOL SER NOS= WTLIB1. 

IEF285I JES2.JOB00071.S10102 SYSIN 
IEF285I1 FLETCH.RCNM.VTAMLST KEPT 
IEF285I1 VOL SER NOS= WTLIB1. 

IEF285I JES2.J0B00071.SI0103 SYSIN 


TEF3731I STEP /FTIPJOBN 7 START 83055. 1525 

TEF374I STEP /FTPJOBN 7 STOP 83055.1526 CPU OMIN 0O0.33SEC SRB OMIN 00.025 
TEF375I JOB /FLETCHA 7 START 83055.1525 

TEF376I JOB /FLETCHA 7 STOP 83055.1526 CPU OMIN O00.33SEC SRB OMIN 00.025 
DVGO2I NUMBER OF RECORDS 

DVGO3I INPUT : 0000024 RECORDS 

DVGO4I OUTPUT : 0000024 RECORDS 

DVGOAI PROGRAM DVGSJIN ENDED 


Figure 12. Output of FTP job using NJE for MVS to MVS job streamtransmission. 
This job places data on the JES2 internal reader for NJE to NJE 
transmission for execution at the sub-host. 
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JES2 J0B LOG -- SYSTEM MVS8 -- 
24 FEB 83 JOB EXECUTION DATE 
24 CARDS READ 
56 SYSOUT PRINT RECORDS 
0 SYSOUT PUNCH RECORDS 
0.02 MINUTES EXECUTION TIME 


1 //FLETCHB JOB MSGCLASS=A,CLASS=A,MSGLEVEL=1 
X*XXROUTE XEQ RALVSMV8 
¥¥*XROUTE PRINT RALYDPD3.FLETCHER | 
2 11 EXEC PGM=IEBUPDTE,PARM=NEW 
3 //SYSPRINT DD SYSOUT=A 
4 //7SNYSUT1 DD DSN=FLETCH.SA21.VTAMLST, 
// VOL=SER=WTLIB1,DISP=SHR,UNIT=3330-1 
5 //SYSUT2 DD DSN=FLETCH.SA21L.VTAMLST; 
7 VOL=SER=WTLIB1,DISP=SHR,UNIT=3330-1 
6 //7SYSIN DD *%, DLM=XX 


TEF236I ALLOC. FOR FLETCHB 

IEF2371I JES2 ALLOCATED TO SYSPRINT 

IEF237I 267 ALLOCATED TO SYSUT1 

TEF2371I 267 ALLOCATED TO SYSUT2 

IEF237I JES2 ALLOCATED TO SYSIN 

ITEF14¢21I FLETCHB - STEP WAS EXECUTED - COND CODE 0000 


IEF285I JES2.JOB00072.S00102 SYSOUT 
ITEF2851 FLETCH.SA21.VTAMLST KEPT 
IEF285I VOL SER NOS= WTLIB1. 

ITEF285I1 FLETCH.SA21.VTAMLST KEPT 
IEF285I VOL SER NOS= WTLIB1. 

IEF2851 JES2.JOB00072.SI0101 SYSIN 
ITEF3731I STEP / 7 START 83055.1625 


IEF374I STEP 7 7 STOP 83055.1625 CPU OMIN 00.31SEC SRB OMIN 00.03 


IEF375I JOB /FLETCHB 7 START 83055.1625 


IEF376I JOB /FLETCHB 7 STOP 83055.1625 CPU OMIN 00.31SEC SRB OMIN 00.03 


SYSIN NEW MASTER 
7 ADD LIST=ALL,NAME=A10CDN 
of NUMBER NEW1=10,INCR=10 


ALOCDN VBUILD TYPE=APPL 
CDN10S11 APPL AUTH=CACQ) 


CDN10R11 APPL AUTH=CACQ),EAS=1,VPACING 
peor verre NAME CALOCDN ) NOT FOUND IN NM DIRECTORY. STOWED WITH TTR. 
S 


NEW MASTER 

af ADD LIST=ALL,NAME=R11CDN 

af NUMBER NEW1=10,INCR=10 
RLICDN VBUILD TYPE=CDRSC 
CDN11S510 CDRSC CDRM=M11 
CDON11IR10 CDRSC CDRM=M11 
CDN11S12 CDRSC CDRM=M11 
CDN11R12 CDRSC CDRM=M11 

/ ENDUP 


IEB817I MEMBER NAME CR11CDN ) NOT FOUND IN NM DIRECTORY. STOWED WITH TTR. 


IEB818I HIGHEST CONDITION CODE WAS 00000000 


Figure 13. Edited output of FTP assembled job on the MVS sub-host: This job is 
transmitted from the host by NJE in the host and = sub-host as 


result of the'/XROUTE XEQ" statement. 


DUMP AND TRACE DATASETS 


Where possible large printouts are handled on the system on which they are 
created. Either TSO is used directly to examine printouts, or SDSF is 
epee ia alternative. SDSF is used in the RISC, and is invoked from 
SO/ISPF. 


Dump/Trace Dataset Creation 


NCCF is used with OCCF to control the production of the necessary 
datasets. NCCF is regarded as an essential tool in any network 
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environment, and OCCF is highly desirable for remote site operation. 


File Transfer 


Where TS50 is not possible, or hardcopy is required, there are other 
options available to transfer the data to the host for analysis. Oo 


Datasets may be transferred by file transfer processes such as 
TSO/Extensions Transmit-Receive or CDNDT, or use may be made of the 
NJE-NJE routing capability to transfer printed output. This latter method 
is easy to use, since no further processing is required. However, it 
impacts both the. network and spool resources if the datasets are large. 
Printed output jis routed either on the basis of returning output to the 
submitting system, else the output destination is defined in a '/XROUTE 
PRINT’ statement. 
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CHAPTER 6. MVS HOST TO VSE SUB-HOST 


The environment used as an example consists of a MVS/SP and VSE system 
interconnected through the MSNF feature of ACF/VTAM. Various 
combinations of file transfer products are used to show how the sub-host 
is maintained. The approach taken is that of Central Site maintenance as 
described earlier ("Central Site Maintenance." on page 4). 


CENTRAL MVS/SP—-JES2 VSE-POWER V2 REMOTE 

DATASETS HOS T S3UB-HOS T DATASETS 

"FLETCH NODE-RALVSMV3 NODE-RALVSE3S "FLETCH 

-RCNM.* SSAL2C<" 
VTAM SUB-AREA ll VTAM SUB-AREA 12 


Figure 14. MVS Host to VSE Sub-Host: General layout of the MVS to 
VSE systems used as an example of MVS Central Site 
maintenance of Remote VSE system 


MAINTENANCE PRODUCT SELECTION 


This section gives a brief note on the usefulness of products used in the 
test MVS-VSE environment. Refer to "Chapter 4. Maintenance Tools" on page 
13 for the product descriptions. 


Data Transfer 


The most useful products for JCL and Printout interchange are NJE in MVS, 
and POWER Version 2 in VSE. Both products are now standard features of 
MVS/SP-JES2 and POWER Version 2 respectively. Both SNA and non-SNA links 
are supported. These products are easy to use, fully compatible, and 
POWER networking is particularly easy to install. These products should 
be used wherever possible as the basis for remote maintenance of VSE 
systems from MVS. 


Installation of POWER Version 2 requires a cold start of POWER and so the 
POWER queues have to be suitably backed up prior to installation. 


CDNDT was used for transfer of larger datasets and worked well. Care must 
be taken to synchronise the transmit and receive jobs. The receive job 
cccupies a partition awaiting data without giving any messages to that 
effect. The transmit job sends a message to the MVS operator console and 
waits for a reply if the receive job has not opened its ACB, a retry is 
possible once this is done. 


FTP was used to transmit both to JEP and then to POWER Version 2 when it 
replaced JEP. In the latter case FTP is required to concatenate files to 
80 byte records for transmission and subsequent restoration to original 
record size. 


JEP is much more difficult to set up than POWER 2 and has less functions. 
It nevertheless worked well during the early MVS-VSE runs and some of the 
output is included later in this section. JEP and PCGHER 2 Networking 
cannot coexist. 
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TSO is used as the MVS maintenance tool. ICCF is not. necessary on the VSE 
sub~host since all libraries are maintained on the MVS host. 


NCCF jis used on both the Host and Sub-host from the same physical screen 
that used for TSO during these tests. OCCF is in turn accessed from NCCF 
to control the VSE system. If remote operator intervention is to be kept 
to a minimum, then OCCF is an essential part of the operation. 


In large scale operation, more physical screens are probably an advantage. 


OPERATING SYSTEM INCOMPATIBILITIES 


Apart from the obvious JCL differences between MVS and VSE, the Linked 
object code is also generally incompatible. In the networking 
environment, this 1s not too serious since the assembly and/or linkage 
editing of the required modules is trivial. 


The exception is the Load module for the NCP. Generation and assembly 
from source of NCPs at the sub-hosts can be very resource consuming. 
Worse, the output modules of the generation process may differ at the 
object level for the same NCP source coding due to variations in SSP 
level, and on the operating system used for generation. 


NCP _ LOAD MODULES 


An NCP Load Module is not necessarily required at a remote sub-host having 
an attached 37X5. However it is recommended that this be done to allow 
the sub-host to perform a local load. This provides additional network 
backup capability. During testing for this guide, a VSE load of a NCP 
directly from a core image library to the 37X5 using ACF/VTAM Version 2 
took a matter of seconds. 


Although the object code required in the 37X5 is independent of the 
loading operating system, the loading mechanisms in VSE differ from those 
used in MVS. These means that the linked NCP Load modules are not 
compatible between these operating systems. The quantity of JCL created 
at NCP generation time is such that it is better to rerun the generation 
process on the VSE system, rather than to try to manually create this JCL 
around the object code produced by the stage 2 NCP generation. 


An alternative to repeating this generation is to write a program to 
unload a MVS NCP load module into VSE CSERV format. An example of this 
type of coding is shown in “Appendix C. Conversion Program for MVS to VSE 
Load Modules." on page 51. The output of this program is then linked into 
the VSE user core image library, and then used to create the VSE NCP load 
file. The program as listed was executed and successfully produced VSE 
format TXT records. 


The following set of figures show the JCL and procedures required to move 
an NCP generated under MVS thru to the VSE NCP Load File, using the 
example program. The associated POWER and Networking definitions are in 
"Appendix D. POWER Version 2 Networking Definitions" on page 59. The 
he are all performed from a screen attached to the MVS Host, and run as. 
follows: 


1. Sign on to Host TSO then - 


a. Unload the generated NCP to VSE format using the program 'BLDTXT’® 
(Figure 15 on page 27). 


b. Submit the JCL via MVS to VSE to start the Receive job. This JCL 
includes the job steps necessary to link edit the received object 
and to create an NCP Load File, and are executed after the receive 
is complete (Figure 16 on page 28). 
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Start the transmit job from MVS (Figure 17 on page 28). 


2. Log off TSO and use NCCF/OCCF in VSE subarea 12 to run the VSE system - 


a. 


g. 


Log on to NCF12 being the VSE NCCF application. 
Sign on as the NCCF network operator. 


Check the status of the inter system links and activate these as 
necessary. 


Sign on to OCCF, in this case CLISTS have not been used to obviate 
the need for the 'o' command prefix etc. (CFigure 18 on page 29). 


Check the status of the VSE system. (Figure 19 on page 29). 


Check POWER networking status and activate if necessary 
(Figure 20 on page 30). 


Monitor job giving operator replies as necessary (Figure 21 on 
page 30 and Figure 22 on page 31) 


Figure 23 on page 31 shows the corresponding MVS log. The run times differ 
between the two systems due to different initial clock settings. 


A similar procedure must be used to change the VSE VTAM start up lists and 
procedures to reflect any change in NCP names before loading the new NCP. 


//FLETCH JOB "FLETCH' ,MSGCLASS=A,CLASS=A,NOTIFY=FLETCH 
//7JOBLIB DD DSN=FLETCH.RCNM.LINKLIB,DISP=SHR 


/XROUTE PRINT RALYDPD3.FLETCHER 


77 


EXEC PGM=BLDTEXT 


//SYSPRINT DD SYSOUT=% 

4/SYSUDUMP DD SYSOUT=x 

//3SYSUTI DD DSN=NCP800.LOAD,DISP=SHR 

/7SYSUT2 DD DSN=FLETCH.RCNM.SOURCECNIS9F3K),DISP=SHR 
//SYSIN DD 


7/ 


% 
LOAD LOADMOD=N139F3K 


Figure 15. Job to unload NCP from MVS to VSE load format: The 


unloaded NCP module 1S now ina suitable format for 
input to VSE linkage editing and cataloging. 
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/7/DOSREC JOB MSGCLASS=A,CLASS=A 
S¥XMIT RALVSE3,DLM=2%% 
* $$ JOB JNM=CDNDTR,CLASS=0,DISP=D 
* $$ LST DEST=RALVSE3 
7/7 JOB CDNDT RECEIVE PROGRAM 
4/7 DLBL OUTPUT,'SA12.CDNDT.RECEIVE.FILE’,01/7001,SD 
/7 EXTENT SYS021,DOSRES,1,0,12673,133 
4/7 ASSGN SYS021,160 | 
// LIBDEF CL,SEARCH=CVTIMV2CL,USRCL1) 
4/7 EXEC CDDTA,SIZE=AUTO 
R»,RLU=CDN12R11,SLU=CDN11$12,BLKSIZE=1000,RECFM=U 
7% 
7% 
4/7 JOB CATALOG NCP 
//7 DLBL IJSYSIN,'SA12.CDNDT.RECEIVE.FILE',,SD 
4/7 EXTENT SYSIPT,DOSRES,1,0,12673,133 
ASSGN SYSIPT,160 
// OPTION CATAL 
INCLUDE 
7% 


// ASSGN SYS003,160 

// LIBDEF CL,TO=USRCL1 
/7 EXEC LNKEDT 

7 & 

// JOB RESET SYSIPT 
CLOSE SYSIPT,SYSRDR 

/& 


// JOB CSERV NCP LOAD FILE 
7/7 DLBL IJSYSPH,*NCP.SA12.LOADLIB',99/7365,SD 
7/7 EXTENT SYSPCH,SYSWK1,1,0,6403,133 
ASSGN SYSPCH,161 
// LIBDEF CL,FROM=USRCL1, TEMP 
7/7 EXEC CSERV 
PUNCH N139F3K 
7% 
/& 
7/7 JOB ASSGNPH 
CLOSE SYSPCH,00D 
/ 


Figure 16. VSE job to receive NCP text from MVS: This job is submitted 
| thru NJE to PNET to run in the VSE sub~host RALVSE3. 


//FLETCH JOB MSGCLASS=A,CLASS=A 
//STEP1 EXEC PGM=CDDTA 
7*XROUTE PRINT RALYDPD3.FLETCHER 

“/SYSIN DD * 

T,RLU=CDN12R11,SLU=CDN1I1S12 

/7SYSPRINT DD SYSOUT=% 

//SYSUDUMP DD SYSOUT=x 

//TNPUT DD DSN=FLETCH.RCNM.SOURCECNIS9F3K),DISP=SHR 


Figure 17. MVS job to transmit NCP text from MVS: The NCP has 
previously been unloaded from MVS Load Library. | 


NETWORK COMMUNICATIONS CONTROL FACILITY 
FSM100 FULL SCREEN MONITOR ENDED 
COMPLETE 


U NCF12 
C NCFl2 


2?? 
o qlogon 


Figure 18. 


NCFi2 
NCF12 
NCF1i2 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF1i2 
NCF12 
NCF12 
NCF12 
NCF12 
22 XX 


VMMMMMMMMMMMMMIMMMK + KOS 


° 


DSIO13I COMMAND LIST LOGON 


Sign on to OCCF in VSE sub-host from MVS Host: 
domain via NCCF in VSE sub-area 12. 
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NETWORK COMMUNICATIONS CONTROL FACILITY 
FSM100 FULL SCREEN MONITOR ENDED 


02/21/83 23:38:05 


The sign on 15 cross 


02/21/83 23:40:42 


Figure 19. Sign on 


DSTO1L3I COMMAND LIST LOGON COMPLETE 

0 QLOGON 

OC47I QLOGON ACCEPTED BY VSE/OCCF 

ODA 

Fl 001 1IR48I C-RV ,SNA, AWAITING NODE=RALVSMV3 
Fl 001 1R4¢8I LST,0O0E,A,1, INACTIVE, 
Fl 001 1481 BG,00C,A0, INACTIVE, 

Fl 001 1R48I F2,00C,B2, INACTIVE, 

Fl 001 1R48I F3,00C,C3, VTAMV2 ,00021,3 
Fl 001 1R48I F4,00C,D4, OCCFV2 ,00024,4 
Fl 001 1R48I F5,00C,E5, CPRESET ,00028,5 
Fl 001 1R48I F6,00C,F6, VCNA »00030,6 
Fl 001 iR48I F7,00C,G/7, INACTIVE, 

Fl 001 1R48I F8,00C,H8, INACTIVE, 

Fl 001 1RS8I F9,00C,19, INACTIVE, 

Fl 001 1R48I FA,00C,JK, INACTIVE, 

Fl 001 iRS8I FB,O0C,LM, INACTIVE, 

Fl 001 1R48I F5,00E,, CPRESET ,00028,A 
Fl 001 1R48I F6,00E,, VCNA »00030,A 
Fl 001 1R48I F3,00E,, VTAMV2 ,00021,A 


to OCCF in 
reader files. 


VSE complete: The operator checks outstanding 
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NETWORK COMMUNICATIONS CONTROL FACILITY 02/24/83 21:40:51 
NCFl2 O PLOAD PNET,PONRJE3S 
NCFi2 Fl 001 IRB4I PLOAD NETWORK DEFINITION TABLE POWRJE3 LOADED 
NCF12 O S PNET,RALVSMV3 
NCF12 Fl 001 IRB3I NODE RALVSMVS3 SIGNED- ON ON LINE 
sa SNA,BSIZE=00400, TIME=21:40: 36 

12 


O D PNET,ALL 
NCF12 Fil 001 1RB7I NDT NAME = POWRJES 
NCF1i2 Fl 001 1RB7I ROUTE] ROUTE2 
PASSWORD 
Fl 001 1IRB7I 
Fl 001 IRB7I 


F1 001 1IRB7I 


% XH KX 
NODE 


RALVSE3S 
RALVSMV3 SNA * 
RALYDPD3 RALVSMV3 


XXX 
AUTH BSIZ APPLID 


RALVSE3S 
400 RALVSMV3 


mmm mm kK mMKM XK 


The PLOAD 


Figure 20. Sample VSE PNET commands to start and display links: 


is normally performed during POWER start up. 


NETWORK COMMUNICATIONS CONTROL FACILITY 

NCF12 Fl 001 1R48I F4,00D,, OCCFV2 ,00024,A 
NCF12 Fl 001 iIR48I F¢,00E,, OCCFV2 ,00092,8 
NCF12 Fl 001 1R48I RDR,OOC,A, INACTIVE, 
NCF12 Fl 001 IRB5I JOB DOSREC 00093000207) RECEIVED FROM RALVSMV3 FOR 


02/21/83 23:56:10 
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NCF12 
NCF12 
NCF12 
NCFl2 
NCF12 
NCF12 
NCFl12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 
NCF12 


722 KX 


Figure 21. 


VSE OCCF 


1Q4¢7I 


// JOB CDNDT RECEIVE PROGRAM 


DAEO1 
DAEOS 
DAEO4 
DAEO4 
DAEO4 
DAEO4 
DAEO4 
DAEO4 
DAEOS 
DAEO4 
DAE04% 
DAEO4 
DAEO4 
DAEO5 


console log of 
transferred from MVS via NJE and POWER 2. 


BG DOSREC 00093 FROM RALVSMV3 


COMMUNICATIONS ESTABLISHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 


TIME=23:51:19 
DATE 02/21/783,CLOCK 23751721 


RECORDS= 0000500. 
RECORDS= 0001000. 
RECORDS= 0001500. 
RECORDS= 0002000. 
RECORDS= 0002500. 


THRESHOLD REACHED. RECORDS= 0003000. 


THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
THRESHOLD REACHED. 
TRANSMISSION COMPLETE. 


CDNDT 


receive: 


RECORDS= 0003500. 
RECORDS= 0004000. 
RECORDS= 0004500. 
RECORDS= 0005000. 
RECORDS= 0005500. 
RECORDS= 0006000. 


The 


receive 


job 
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NETWORK COMMUNICATIONS CONTROL FACILITY O02/22783 00:06:41 
NCF12 000 DAEO7 RECORDS WRITTEN TO OUTPUT = 0006042. 
NCF1i2 000 DAE03 RECORDS READ FROM INPUT = 0006042. 
NCF1i2 000 DAEO0&8 ACKNOWLEDGEMENT SENT TO TRANSMITTER. 
NCF12 000 EQJ CDNDT DATE 02721783,CLOCK 23/56/15,DURATION 00704754 
NCF12 7/7 JOB CATALOG NCP DATE 02/21783,CLOCK 23/56/15 
NCF12 EOJ CATALOG DATE 02/22/83,CLOCK 00/01/744,DURATION 00705728 
NCF12 // JOB RESET SYSIPT DATE 02/22/83,CLOCK 00/0174%4 
NCF12 1T20I SYSIPT HAS BEEN ASSIGNED TO X*OOC' 
NCFle2 EQJ RESET DATE 02/22/83,CLOCK 00/701/745,DURATION 00700700 
NCF12 “7/7 JOB CSERV NCP LOAD FILE DATE 02/22/783,CLOCK 00701745 
NCF12 4433D EQUAL FILE ID IN VTOC IJSYSPH SYSPCH=161 SYSWK1 
NCP.SA12.LOADLIB 
NCF12 BG-000 OC66D READY 
0 0 DELETE 
EOJ CSERV DATE 02722/83,CLOCK 00/06/37,DURATION 00/04/51 
// JOB ASSGNPH DATE 02/722783,CLOCK 00/06/38 
EOJ ASSGNPH DATE 02722/83,CLOCK 00/06/38,DURATION 00700700 
1Q34I BG WAITING FOR WORK 
1Q34I LST WAITING FOR WORK ON OOE 


MMMM KM MMM MMMM Mmmm 


Figure 22. VSE OCCF console log of NCP catalog and load file build: This job 
follows the receive JCL and is transferred from MVS to VSE in the 
same manner. 


JES2JS0B LOG -- SYSTEM SATIT1 -- NODE 


SHASP373 FLETCH STARTED - INIT A - CLASS A - SYS SA11 
+DAE19 LERAD/SYNAD ENTERED. R0O=00000010 
+DAE20 RPLFDBK= 1001 RPLFDBK2= 08090000 
+DAE27 BIND REJECTED. 
nai REPLY 'R* TO RETRY CONTACT,'*C® TO CANCEL 


R ? 
+DAE01 COMMUNICATIONS ESTABLISHED.READY TO SEND. 
+DAE04 THRESHOLD REACHED. RECORDS= 0000500. 
+DAEO04 THRESHOLD REACHED. RECORDS= 0001000. 
+DAE0% THRESHOLD REACHED. RECORDS= 0001500. 
+DAEO4 THRESHOLD REACHED. RECORDS= 0002000. 
+DAEO04 THRESHOLD REACHED. RECORDS= 0002500. 
+DAE04 THRESHOLD REACHED. RECORDS= 0003000. 
+DAE0%4 THRESHOLD REACHED. RECORDS= 0003500. 
+DAEO04 THRESHOLD REACHED. RECORDS= 0004000. 
+DAEO0& THRESHOLD REACHED. RECORDS= 0004500. 
+DAE04 THRESHOLD REACHED. RECORDS= 0005000. 
+DAEO04 THRESHOLD REACHED. RECORDS= 0005500. 
+DAE0% THRESHOLD REACHED. RECORDS= 0006000. 
+DAE05 TRANSMISSION COMPLETE. 
+DAE03 RECORDS READ FROM INPUT = 0006042. 
+DAE06 RECORD COUNT ACKNOWLEDGED BY RECEIVING 
IECi30I SNAP DD STATEMENT MISSING 

FLETCH STEP1 CDDTA 0000 
SHASP395 FLETCH ENDED 


Figure 23. Sample MVS log of CDNDT transmission of the NCP text: The MVS 
-transmission program began execution before the VSE receive program 
resulting in the "RETRY shown above. 


NCP RESOURCE RESOLUTION TABLE (RRT). 


The VSE system is locally attached to the 37X5 and always requires an RRT 
to communicate with this sub-area, whether it loads the NCP itself or not. 
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As with the NCP Load module, it is desirable to copy this table directly 
from the MVS system. : | : 


This may be performed in a number of ways. The technique used for the NCP 
Load module may be used with either the MVS Linked NCP RRT unloaded thru 
the BLDITXT program, or the object output of the MVS NCP. generation as 
input to a VSE linkage edit. | 


Another technique is to use CDNDT to transfer a file consisting of ne NCP 
RRT with the VSE JCL concatenated around it. a 


Figure 24 shows the VSE job control required to link the NCP object module 
to produce a resource resolution table; however the job is transferred 
from MVS. Note that the name in the 'PHASE' card is the phase name of the 
resource resolution table. The Linkage editor control card ‘INCLUDE 
»>CSRRTI* tells the linkage editor to include the CSECT S$RRT from the 
object deck submitted in the jobstream. This name must be the NCP name 
with an 'R' appended. In the example the NCP object module is an integral 
part of the. jobstream, and is added after the 'INCLUDE' card. As the 
object module is first cataloged before this job, it is not available 
after job execution. | | 


JOB CATALOG NEW N245FX9 RRT 
OPTION CATAL |. 
LIBDEF CL,TO=IJSYSRS, TEMP 
PHASE N245FX9R > x 
INCLUDE ,CSRRT) 
INCLUDE 
XXX Place object module from MVS Stage 2 Object library here. 
1% 
// EXEC LNKEDT 
1% 


1% 
* $$ EOJ 
Figure 24. VSE Jobstream transmitted by CDNDT for NCP RRT: This 


job stream link edits the NCP RRT. After execution the 
object module no longer exists. 


The next example (Figure 25), shows the situation where the object module 
is first cataloged into a relocatable library, and then included in the 
linkage edit job step. 


There are many unresolved external references from the linkedit, but these 
can be ignored. All the external references refer to modules required for. 
the NCP load module. 


// JOB CATALOG NI39F3K OBJECT MODULE 
// LIBDEF RL,TO=USRRLI 
4/7 EXEC MAINT 
CATALR N139F3KR > 
¥*¥*¥X*%*% Member NI39F3K of PDS containing the 
object member resulting from the stage two NCP generation. 
| /X . 
747 OPTION CATAL 
// LIBDEF CL,TO=USRCL1 
PHASE NI39F3KR,* 


INCLUDE ,(S$RRT) 
INCLUDE 
// EXEC LNKEDT 


/% 
* $$ EOJ 


Figure 25. VSE Jobstream transmitted by CDNDT for NCP RRT: This 
job stream 15 assigned as SYSIN for execution and must 
have a seperate unassign job behind it on the same file 
extent. 
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VTANLST DEFINITIONS 


Most of the user code required to be maintained for VTAM execution is in 
source code format. There is no difference between MVS and VSE coding for 
these modules and so transmission of the source statements to VSE is 
fairly straightforward. 


The VTAM definition members are held as members of a 'VTAMLST' partitioned 
dataset on the MY¥S host. In this example they are in 
"FLETCH.RCNM.VTAMLST'®. 


Because there are often many small members to be transmitted it is better 
to use FTP in conjunction with NJE/POWER version 2 rather than CDNDT. FTP 
15 able to build a single concatenated job stream to handle several 
members in one transmission through the spooling system. This compares to 
multiple schedulings of CDNDT, one per member, and the savings in 
transmission time do not offset this inconvenience. 


Both JEP and POWER version 2 are able to handle the FIP transmission in 
the VSE sub-host, while NJE handles the MVS host. 


JEP and POWER version 2 differences 


The approaches to the receipt of data by JEP and POWER version 2 are very 
different. 


JEP accepts punched data into the POWER reader queue, in the same manner 
as POWER/RJE. 


POWER version 2 Networking CPNET) works in the same manner as its MVS 
equivalent, NJE. Data sent via the punch is received and placed in the 
POWER punch queue. 


In a VSE-VSE situation, a special disposition of 'I' on the host punched 
data informs PNET to place the received data in the POWER reader queue. 


In MVS it is not possible to specify the necessary 'DISP=I'" on transmitted 
output, instead the internal reader of JES2 ts used to route the FTP 
output to VSE. 


These steps sound more complex than they are in practice. Examples of 
both procedures follow. 


VTAMLST transfer With FTIP/NJE/POHER version 2 


"Appendix D. POWER Version 2 Networking Definitions” on page 59 contains 
the definitions used in these examples. 


The output of the FTP JOBIN is sent to JES2 internal reader with a 'XMIT' 
ee to route the execution of the following FTP built jobstream to 
VSE. 


1. TS5S0 is used to submit the FTP job stream to MVS CFigure 26 on page 
34). 


2. Figure 27 on page 35 shows the output of this job, the punched records 
are routed to the JES2 internal reader in the same system. 


3. The XMIT statement causes the records to be sent to VSE, the output of 
the catalog is shown in Figure 28 on page 36. 
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//FTPJOBIN JOB MSGCLASS=0,CLASS=A,MSGLEVEL=1,NOTIFY=USER 
“7*XROUTE PRINT RALYDPD3.FLETCHER 
//* THIS JOB TRANSFERS 'VTAMLST* DEFINTIONS FROM OS TO DOS/VSE. 
//FTPJOBN EXEC PGM=DVGXJIN 
//SYSPRINT DD SYSOUT=x 


1 “/DVGPR DD SYSOUT=%,DCB=(LRECL=132,BLKSIZE=132,RECFM=F) 
| //DVGPU DD SYSOUT=CA,INTRDR),DCB=CBLKSIZE=80,RECFM=F) 
//DVGRD DD DATA,DLM=XX 


“7/SENDFTP JOB MSGCLASS=A,CLASS=A,MSGLEVEL=1 
/RXMIT RALVSE3,DLM=YY 
* $$ JOB JNM=FTPJOB1,CLASS=0,DISP=D 
* $$ LST DEST=RALYDPD3.FLETCHER 
// JOB -FTPJOBL _ 
// LIBDEF SL,TO=USRSL1,TEMP — 
7/7 EXEC MAINT © 
CATALS B.A12CDN 
BKEND B.A12CDN 


XX 
7 DD DSN=FLETCH.RCNM.VTAMLSTCAL2CDN) ,DISP=SHR 
47 DD DATA,DLM=XX | 

BKEND 


CATALS B.R11ICDN 
BKEND B.R1I1CDN 


17 DD DSN=FLETCH.RCNM.VTAMLSTCR11CDN),DISP=SHR 
// DD DATA,DLM=XX 


Figure 26. FTP JOBIN/PNET to produce multiple VSE jobs 


from 


MVS: The output of the first job produces JCL fora 
second MVS job. This second job contains an ‘'XNMIT' 
statement directing the execution to the VSE sub-host. 
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IEF237I1 
IEF2371 
ITEF14¢21I 
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JES2 J08B L 


0G. == 


DVGXJIN 


170 
4 JOB 170 FTPJOBIN FTPJOBN 
170 SHASP395 FTPJOBIN ENDED 


JES2 JOB STATISTICS 
83 JOB EXECUTION DATE 
33 CARDS READ 
53 SYSOUT PRINT RECORDS 
0 SYSOUT PUNCH RECORDS 
-13 MINUTES EXECUTION TIME 
//FTPJOBIN 


JOB MSGCLASS=0,CLASS=A,MSGLEVEL=1,NOTIFY=USER 


SYSTEM S$Al11 


SHASP373 FTPJOBIN STARTED - INIT A - Paonia - SYS SA11 
000 


NODE 


XX¥XROUTE PRINT RALYDPDS3.FLETCHER 

*¥¥* THIS JOB TRANSFERS 'VTAMLST* DEFINTIONS FROM OS TO DOS/VSE. 
//FTPJOBN EXEC PGM=DVGXJIN 

//SYSPRINT DD SYSOUT=* 

//DVGPR DD SYSOUT=*, DCB=CLRECL=132,BLKSIZE=132,RECFM=F) 
//DVGPU DD SYSOUT=CA,INTRDR),DCB=CBLKSIZE=80,RECFM=F) 
//7DVGRD DD DATA,DLM=XX 

47 DD DSN=FLETCH.RCNM.VTAMLSTCA12CDN),DISP=SHR 

47 DD DATA,DLM=XX 

7 DD DSN=FLETCH.RCNM.VTAMLSTCR11CDN),DISP=SHR 

// DD DATA,DLM=XX 

4/7 


ALLOC. FOR FIPJOBIN FTPJOBN 
JES2 ALLOCATED TO SYSPRINT 
JES2 ALLOCATED TO DVGPR 
JES2 ALLOCATED TO DVGPU 
JES2 ALLOCATED TO DVGRD 
FTPJOBIN FTPJOBN - STEP WAS 


JES2.J0B00170.500105 SYSOUT 
JES2.J0B00170.500106 SYSOUT 
JES2.J0B00170.500107 SYSOUT 
JES2.J0B00170.SI0101 SYSIN 
FLETCH.RCNM.VTAMLST KEPT 
VOL SER NOS= WTLIB1. 
JES2.J0B00170.S10102 SYSIN 
FLETCH.RCNM.VTAMLST KEPT 
VOL SER NOS= WTLIB1. 
JES2.J0B00170.510103 SYSIN 
STEP /FTIPJOBN 7 START 83056.1202 
STEP /FTPJOBN 7 STOP 83056.1202 CPU OMIN 00.30SEC SRB 
JOB /SFTIPJOBIN/ START 83056.1202 
JOB /FIPJOBINZ STOP 83056.1202 CPU OMIN O00.30SEC SRB 
NUMBER OF RECORDS 
INPUT : 0000024 RECORDS 
OUTPUT : 0000024 RECORDS 


PROGRAM DVGSJIN ENDED 
27. FTP JOBIN/PNET output li 


EXECUTED - COND CODE 0000 


sting from MVS: 


to the JES internal reader and thence to VSE. 


OMIN 00.025 
OMIN 00.025 


The output of this job goes 
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| 77 JOB FTPJOB1 OO oe | DATE 02 
// LIBDEF SL,TO=USRSL1,TEMP | | | . ¢ 
77 EXEC MAINT 


CATALS B.A12CDN_ 
CATALS B.R11CDN 


STATUS REPORT - DATE: 02725783 (MM/DD/YY) TIME 


LIBRARIES ON STARTING NEXT LAST | DIRECTORY 
COUNT KEY DATA ADDRESS ENTRY ENTRY ENTRIES 
(CKD) DEVICES: C H R C H R ECE C H R E ACTIVE ALLOC 
USRSL1 VOLID: SYSWK1 
~ SOURCE-STMT DIRECTORY 109 00 O1 109 00 12 09 109 07 44 09 40 
LIBRARY 109 08 01 112 07 27 123 18 4%4 7 1218 


EOJ FIPJOBI | | — DATE 02 


Figure 28. FTP JOBIN/PNET output listing from VSE: This job is received from 
the MVS host via FTP/NJE/PNET. 


VTAMLST transfer using FTP/NJE/JEP 


"Appendix F. JEP Related Definitions” on page 65 contains the JEP related 
definitions used in this example. 


The output of the FTP job is placed on a punch dataset and transmitted 
directly to the VSE reader queue via NJE/JEP. 


1. The FTP JOBIN job is submitted via TSO to the host MVS system, 
Figure 29 on page 37 shows the JCL. ; 


2. The FTP job output punch dataset is transmitted to VSE by NJE/JEP, 
resulting in the same VSE jobstream at the sub-host. 


The JCL used to route the printed output back to the MVS host is first 
cataloged into a VSE source library. Figure 30 on page 37 shows an 
example of this process. Note that the LST class is 'J*' which is the JEP 
output default, if this is not correct then no output transmission from 
VSE takes place even though the remote ID is correct. Also note that the 
ile being cataloged 1s immediately used to send the printed output 
ac o MVS. 
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//FTPJOBIN JOB MSGCLASS=0,CLASS=A,MSGLEVEL=1,NOTIFY=USER 
//* THIS JOB TRANSFERS *.VTAMLST' MEMBERS FROM OS TO DOS/VSE. 
//FTPJOBN EXEC PGM=DVGXJIN 
Z/SYSPRINT DD SYSOUT=x 
//DVGPR DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=132,RECFM=F) 
//7DVGPU DD SYSOUT=B,DCB=C(BLKSIZE=80,RECFM=F),DEST=RMT12 
//DVGRD DD DATA,DLM=XxX 
* $$ JOB FTPJOB1 
*¥ S$ LST JEP=S.CHRSJEP,REMOTE=011,CLASS=J 
// JOB FTPJOBI 
// LIBDEF SL,TO=USRSL1,TEMP 
4/ EXEC MAINT 
CATALS B.MO0O 
BKEND B.MO00 
XX 
17 DD DSN=FLETCH.RCNM.VTAMLSTCM00),DISP=SHR 
17 DD DATA,DLM=XX 
BKEND 
CATALS B.A22JEP 
BKEND B.A22JEP 
XX 


17 DD DSN=FLETCH.RCNM.VTAMLSTCA22JEP),DISP=SHR 
17 DD DATA,DLM=XxX 

BKEND 
7% 


7% 
* $$ EOJ 
xX 
7 


Figure 29. FTP job to transfer a jobstream using NJE/JEP: This job 
places data on a punch dataset for transmission by NJE 
and JEP to the VSE sub-host POWER reader queue. 


//FLETCH JOB "'FLETCH',MSGCLASS=A,CLASS=A,NOTIFY=FLETCH 
/*XROUTE PUNCH RMT12 
/*ROUTE PRINT RALYDPD3. FLETCHER 
/7® THIS JOB RUNS A JOB IN THE VSE SYSTEM IN SA 22 VIA THE FILE 
77*X TRANSFER PROGRAM AND THE JOB ENTRY PROGRAM UNDER VSE 
7/7FTPJOBN EXEC PGM=DVGXJIN 
//SYSPRINT DD SYSOQUT=* 
//DVGPR DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=132,RECFM=F) 
//DVGPU DD SYSOUT=B,DCB=(BLKSIZE=80,RECFM=F) 
//OVGRD DD DATA,DLM=XxX 
* $$ JOB JNM=RCNM11,CLASS=0,DISP=D 
* $$ LST JEP=RCNM11,REMOTE=011,CLASS=J 
// JOB RCNM11 
* CATALP RCNM11 JEP MODULE 
// LIBDEF SL,TO=USRSLI 
“7 EXEC MAINT 
CATALS S.RCNM11 
BKEND S.RCNM11 
7/FLETCH JOB ‘FLETCH’,MSGCLASS=A,CLASS=A,NOTIFY=FLETCH 
/*XROUTE PUNCH RMT12 
/XROUTE PRINT RALYDPD3. FLETCHER 
//FTPCHRS EXEC PGM=DVGXJOUT 
//DNGPR DD SYSOUT=*,DCB=CLRECL=132,BLKSIZE=132,RECFM=F) 
//OVGPU DD SYSOUT=B,DCB=(BLKSIZE=80,RECFM=F) 
//0DVGRD DD DATA,DLM=YY 
DVGINCLUDE 
YY 


/7/ 
BKEND S.RCNM11 
/¥ 


7 & 
¥* $$ EOJ 
XX 


// 


Figure 30. File Transfer Program - JOB in from MVS to VSE 
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DUMP AND TRACE FILE HANDLING 


Physical transfer of printed output to the host may not be necessary if no 
hardcopy is required. If the sub-host and the network have the capacity to 
use ICCF directly at the sub-host, then the central maintenance team log 
directly onto the sub-host for problem determination. Alternatively, VM 
may be available through VNCA. 


When file handling is necessary, the approach taken depends very much on 
the volume and urgency of the required data. Either the file itself is 
transferred using CDNDT or the file is printed to the spool queue and 
transferred through POWER version 2 or JEP to NJE. The first method is 
the most efficient for larger files whereas the latter method is much more 
convenient. 


Creating Dump/Trace files 


NCCF and/or OCCF is used to initiate and close off the production of the 
appropriate files, unless of course the network is unavailable. 


File Transfer 


If CDNDT is used to move the file to the Host, the transfer takes place 
using the technique described earlier in "NCP Load Modules" on page 26, 
except that the sending and receiving roles are reversed. 


If the volume of data can be tolerated in the spooling systems, then a job 
is.run in the sub-host with a print destination of the host specified in 
the correct manner in the '* $$ LST" for either PNET or JEP. 


Figure 31, shows the JCL submitted via TSO at the host to print a VTAM 
trace file. The print out is spooled to the destination explicitly 
specified in the JCL or implicitly back to the originating host as is the 
case in this example. 


//RTPRINT JOB MSGCLASS=A,CLASS=A,MSGLEVEL=1,NOTIFY=USER 
S¥XMIT RALVSE3,DLM=%% 
* $$ JOB JNM=TPRINT,CLASS=0,DISP=L 
* $$ LST DEST=CRALYDPD3,FLETCHER) 
JOB TPRINT PRINT OUT ACF/VTAM TRACE OUTPUTS 
LIBDEF CL,SEARCH=USRCL1, TEMP 
DLBL TRFILE, 'VSEIPOE.SNA.VTAM. TRACE. FILE’, 99/365,5D 
EXTENT SYS001,DOSRES 
ASSGN SYS001,160 
ASSGN SYSLST,00E 
EXEC TPRINT 


$$ EOJ 


Figure 31. POWER Version 2 used to transfer print of VTAM trace 
file to MVS: The Job is submitted from TSO to JES2, 
which in turn routes the execution to the VSE sub-host. 


The use of the utility "TPRINT' involves operator replies at the sub-host 
and so OCCF is required if these replies are to be entered remotely. A 
disposition of "L' is used on the VSE job to keep it in the reader queue 
for repeated execution. It is then released through OCCF. 


If TPRINT is not used, then the trace file is only printed at VTAM end of 
job. Transmission therefore only takes place when VTAM is again started. 
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CHAPTER 7. VSE HOST TO VSE SUB-HOST 


The environment used as an example consists of two VSE systems 
interconnected through the MSNF feature of ACF/VTAM. An overview of this 
environment is shown in Figure 32. 


CENTRAL VSE-POWER V2 VSE-POWER V2 REMOTE | 

DATASETS HOST SUB-HOST DATASETS 

"FLETCH NODE-RALVSES NODE—-RALVSES3A *FLETCH 

-RCNM. ' sohce." 
VTAM SUB-AREA 12 VTAM SUB-AREA 22 


Figure 32. VSE Host to VSE Sub-Host: General laycut of the VSE to 
VSE systems used as an example of VSE Central Site 
maintenance of Remote VSE system 


Various combinations of file transfer products are use to show how the 
sub-host is maintained. The approach taken is that of Central Site 
maintenance as described earlier ("Central Site Maintenance." on page 4). 


The main obstacle to remote maintenance in a VSE multisystems environment 
is the extent of operator intervention required compared to a MVS system. 
The data transfer products themselves are very similar to those used in 
the MVS host to VSE sub-host environment, without the obvious difficulties 
of operating system incompatibilities. 


VSE-VSE maintenance is very well covered in the publication : 4331 


Distributed Data Processing and VSE/POWER V2 Design Guide listed in 
"Chapter 8. Bibliography" on page 43 


MAINTENANCE PRODUCT SELECTION 


This section comments briefly on the usefulness of products used in the 
test VSE-VSE environment. 


Data Transfer 


There are two alternatives for data transfer between VSE systems. [hese 
are FTP with either JEP or PNET, or CDNDT. 


The easiest to use is POWER Version 2 Networking CPNET) in conjunction 
with FTP. PNET makes use of the spooling queues in both systems to 
actually move the data. FTP is used to get the data into a suitable form 
for transmission (80 byte records), and to reconstitute it after receipt. 
It is suitable for a number of small files, where the volume of data does 
not warrant the greater inconvenience, but greater efficiency of CDNDT. 


JEP is an older product which is superceded by PNET. Note that JEP places 
punched output it receives in the POWER reader queue. PNET behaves as 
MVS/NJE and normally places any output received in the POWER output queue. 
A DISP of I must be specified on transmitted punched data to override this 
default and place the data in the POWER reader queue. 


CDNDT is used for the transfer of the larger individual files such as 
trace or dump datasets. CDNDT has recovery facilities and is able to 
transfer data in an efficiently blocked manner, however it only transfers 
one file per execution. | 
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Interactive Subsystems 


ICCF is the maintenance tool used at the host. It is also of use at the 
sub-host to initially view printed output where machine resources permit. 

However, any major problem determination should take place at the central 
site on the central site equipment where the proper analysis tools and 
archiving facilities exist. This approach also facilitates better record 
keeping of problems and change management. 


NCCF is used to control the network in conjunction with OCCF to control 
remote VSE console operation. This combination of products is negarced as 
mandatory for successful remote system maintenance. °* 


NCP_ LOAD MODULES 


It is recommended that each remote operating system be able to load at 
least its own locally attached 37X5 control units. Each remote site 
therefore needs copies of the appropriate NCP source and load modules. 


The load modules are fairly large and are transmitted by a CDNDT job. An 
example of the steps that have to be performed follows: 


Ll. Punch the load module out of the host core image library using the VSE 
CSERV maintenance program. This may already have been done if the NCP 
is also loaded from the host, in which case there will be a NCP load 
file containing punched object data. 


2. Send a job to the remote VSE system to initiate the CDNDT receive 
program using PNET. 


3. Start the CDNDT transmit job at the VSE host to transfer the punched 
object deck. PNET is used to transfer this JCL to the sub-host. 


4. The transmitted file is used directly as an NCP load file. 


5. The NCP object deck is also linked into a core image library which 
allows ACF/VTAM Version 2 to load the NCP directly from this library 
where core storage resources permit. This method of loading is very 
fast, since the whole module is loaded from core via a channel program 
compared to the single record process from the NCP load file. 


NCP_ RESOURCE RESOLUTION TABLE (RRT) AND OTHER LOAD MODULES 


There is no special difficulty involved in transferring core image modules 
from one system to another. The larger modules, such as the RRT>, are 
transferred using CDNDT in the same manner as the NCP. 


The smaller modules, such as the USS tables, and the RRT if network 
capacity exists, are better transferred using FTP with PNET Cor JEP). 


VTAMLST DEFINITIONS 


FTP is used with JEP or preferably the newer PNET to transfer this data 
and involves no special processing. 


DUMP_AND TRACE FILE HANDLING 


Physical transfer of the dump/trace dataset to the host is required if 
extensive problem determination is needed or if the volume is very large. 
If physical transfer is not required, then ICCF is used directly on the 
sub-host for problem determination. | , 
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Creating Dump/Trace Files 


NCCF and/or OCCF is used to start the appropriate trace or dump. 


File Transfer 


RISC recommends that this type of file be transferred to the host for 
analysis and archiving in all but the most trivial cases. It 15 very easy 
to print files at a remote host with incorrect print options, and then to 
overwrite the file before this can be corrected. 


CDNDT is the best way to move voluminous files through the network. FTP 
with PNET Cor JEP) is an alternative, but is less efficient. 


If the printouts are small and the print options well understood, then 
PNET may be used by itself to transfer the formatted output. 


Chapter 7. VSE Host to VSE Sub-Host 41 


42 


Raleigh International Systems Center 


Raleigh International Systems Center 


CHAPTER 8. BIBLIOGRAPHY 


RELATED RISC IBM WORLD TRADE SYSTEMS CENTRE PUBLICATIONS 
World Trade Corporation Technical Papers 
Netnork Management 


GG24-1539-0 
Communication Network Management/ 
Managing Interconnected Systems 


This document summarizes the results of a project in which central site 
management of distributed processing systems were examined. Situations 
were examined that included either a OS/MVS system or a DSO/VSE system as 
central host. The requirements for controlling these situations from a 
central site fell broadly into three areas: Network Operation, Program 
Maintenance and Batch Data Transfer, and Problem Determination. 


GG24-1540-0 
Communication Network Management/ 
NCCF Terminal Access Feature 


This document contains an overview of the Terminal Access Facility of 
NCCF. The document was produced as a by-product of early tests of the 
product and provides useful scenarios on how the product can be used. 


GG24-1546-0 
Communication Network Management/ 
Using Information/Management 


The intent of this paper is to ease the initial use of some functions of 
Information/Management (CINFO/MGMT) and its interface to NPDA. It 
presents examples on defining a network containing multiple systems. 


GG24-1554-0 
Communication Network Management/Z 
Customizing NCCF 


This document is intended to supplement the NCCF Customization Manual 
€$C027-0433) with further hints, comments and examples on writing CLISTs, 
Command Processors and User Exits for NCCF. It should be read in 
conjunction with the NCCF Customization Manual. 


GG24-1558 
Communication Network Management/Z 
Central Site Operation 


This paper describes the specialties of central operation and how they are 
managed by means of Communications Network Management products. It 
further shows samples of command lists, procedures, routines, etc. as a 
help to introduce the concept of centralized network and system operation 
in a system. 


GG24-1561 
Communication Network ManagementZ 
Using the CNM-TOOLS 


This paper discusses what the different network management products can do 
for the help desk and the operator when they face a problem. Well-known 
problem areas are analyzed and the use of the tools to treat the problems 
ahh: oe aaa It also discusses the benefits of online operator support 
material. 
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Installation Support 


GG24-1547-0 
Advanced Communications 
Functton Primer 


This document provides overviews many of the SNA products and expands on 
the examples in the ACF Product Installation Guide (6624-1557). 


GG24-1557-0 
Advanced Communications Function 
Products Installation Guide 


The purpose of this guide is to provide information that may help in 
installing SNA products on either a DOS/VSE or OS/VS operating system 
using MVS. This guide supports ACF/VTAM VIR3 and V2R1. It supports 
ACF/NCP V1IR3 and V2. The samples in this guide will support the following 
products: IMS/VS, CICS/VS, TSO, JES2(MVS), ACF/VTAM, ACF/NCP/VS, NCCF, 
NPDA, VSE, POWER, FTP, JEP, and VSE/OCCF. , 


GG24-1509-0 
SNA Product Installation Guide/ 
ACF/VTAM Release 2 | 


The purpose of this guide is to provide information that may help in 
installing SNA products on either a DOS/VSE or OS/VS operating system 
using MVS. This guide supports ACF/VTAM V1R2 and ACF/NCP V1.R2 and V1R3. 
1.2 and 1.3. The samples in this) guide will support the following 
ae IMS/VS, CICS/VS, TSO, JES2Z(MVS), ACF/VTAM, ACF/NCP/VS, NCCF, 
and é 


GG24-1519-0 

Small Communications Systems 
Installation Primer 

IBM 4331/7ACF/VTAME 


This publication contains basic information needed to assist the user in 
adding the telecommunications capability to an IBM 4331 DOS/VSE System. It 
is specifically directed to the installation of IBM 3270, ACF/VTAME, and 
CICS/VS systems. 


6GG24-1552-0 

Small Communications Systems 
Installation Primer 

VSE System IPO/VE & IBM. 3705-80 


The purpose of this quide is to assist the user in the installation ofa 
telecomunications system based on 

- IBM Systems Network Architecture (SNA) 

- An IBM 4300 Processor 

- VSE System IPO/Extended 

CICS/VS 

An IBM 3705-80 Communication Controller 

IBM 3270 Information Display System 


Problem Determination 


GG24-1514-0 
SNA Problem Determination Guide/ 
ACF R3 Volume 1 


This paper is part of a two volume series dealing with 
system problem determination in a ACF/VTAM environment. It 
discusses and illustrates problem determination techniques 
and tools. 


44 


Raleigh International Systems Center 


GG24-1523-0 
SNA Problem Determination Guide/ 
ACF R3 Volume 2 


Automatic Distribution of System Center Bulletins 


In order to provide automatic distribution of the communication based 
system center bulletins to customers, a special procedure has been 
established using System Library Subscription Service (SLS5). To receive 
bulletins of interest automatically when they are released, the following 
bill of form number should be added to the customer SLSS subscription 
GBOF-2206. 


RELATED BOEBLINGEN IPM WORLD TRADE SYSTEMS CENTRE PUBLICATION 


GG24-1570-0 
VSE/ZPOWER Version 2 
Networking Design Guide 


This guide contains many examples of the uses of PNET alone and with FTP, 
to communicate VSE to VSE and MVS to VSE. Differences to JEP are 
described, and comparisions to other products such as CDNDT are made. 


RELATED IBM WASHINGTON SYSTEMS CENTRE PUBLICATIONS 


GG22-9286-0 
4331 Distributed Data Processing 
Network Implementation 


This guide uses a live MVS host with distributed 4331 sub-hosts network as 
an example of remote maintenance. It 15 very comprehensive, dealing with 
all aspects of implementation and maintenance encountered during the 
installation of the system. The products used have been superceded in 
some instances, notably JEP by PNET, but the approaches taken are still 
very valid. 
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APPENDIX A. NETHORK NANING CONVENTIONS 


| IMeaning of Symbols. 
ICapital letters are 
Name lconstants, lower case] 
are variables as 
described below. 


Type of resource 


Application program major node ASSV.... lcuu = 3 char physical 
General ASS..... connection for 

local devices 

and clusters. 


| 
| 
| 
address of the | 
| 
| 
| 


gQ - group sequence: 


: 

CICS | AssCICSv 
| 
| 


| 
| 
| | 
| | 
Application program | IMS AssIMSv. | A-Z/1-9 ; 
minor node | llia = 3 char physical] 
| NCCF AssNCFv. | addr of the conn 
| for line inter- 
TSO AssTSOv. | nal attachment 
| p = PU sequence: 
| | A-Z/1-9 
| ss = 2 char subarea | 
CDRM major node MOOv.... | in this domain | 
t = LU sequence: | 
CDRM minor node own domain Mssv. | A-Z/0-9 | 
other domain Mxxv. v = variations 
{ within the same| 
lApplication | RxxAv.. | suba definition] 
programs [ { (for example, 
| | lines originally 
cIcs | RxxACICS — | active (A) or | 
TSO | RxxATSO. | inactive (I) { 
| xx = 2 char suba | 
lLogical|Group | RxxGg. number in other 
CDRSC major node {Units ; | domain | 
consisting of: Idefined/Line [| RxxLlia | yy = 2 char adj NCP | 
lunder | | suba number | 
i RxxPliap | . = filler char | 
| NCP | RxxNyyv | ' 
| linen 
non-snal RxxHLv | 
sna RxxHSv | | 
| Name of { | 
original | | 
CDRSC minor node | definition| 
: statement | | 
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| | [Meaning of Symbols. 
{Capital letters are 
Name lconstants, lower case 
| lare variables as 
|described below. 


Type of resource 


= 3 char physical 


Component Cssliapt [|cuu 
address of the 
Group Gssg.. connection for 
local devices 
Line Lsslia and clusters. 
g = group type: 
Local Non-SNA | Major node HssLv... B = BSC 
Minor node HssLcuu P = $75 
S = SDLC 
Local SNA Major node HssSv... X = X-D LINK 
Cluster HsscuuP lia = 3 char physical] 
Terminal Hsscuutt addr of the conn 


for line inter-| 

nal attachment | 

p = PU sequence: © 
A-Z/1-9 

ss = 2 char subarea | 
in this domain | 

t = LU sequence: | 

| 


Terminals Tssliapt 


| 
| 
| 
: 
LU/Terminal | LOCADDR 1-35 
| 
| 
| 
| 
| 


‘ALTENS KALMEL ORIGTEES SERED TLRLAID SEES CTS CITES SSE ATS EG CTD ETAL ERT TOTS MALE OORT AND EIR STINE EOSTTES 


(Optional except 
for the following 
group of 


or 
whatever 15 acceptable 


terminals) by the system support 
staff, the operations 1-9/A-Z 
staff, or the end users. v = variations 


Within the same] 
suba definition| 
(for example, 


address most 


Major node Dss5PATH. often used 


ES CII COPTER SLRS RARE: OER CER ALTENE HORS HEAD ETS: AES REM CN SN GE RES SE NNT CENTS CAC GLUES ATED SEAR) URRY CEES ES CRD ATE COLONES CRNSAS CELLS CEES CERRY SETA ERAIIOD SETIOITE GREE CTR CERNE RUNYAN ChE CRS SMS RES 


| 
| 3631 FAssliap lines originally 
| | active (A) or | 
First LU or | 3614 | FCssliap inactive (I) | 
terminal specified | | | | 
to SSS for a PU | 3650 1 QEssliap xx = 2 char suba | 
or Control Unit | | | number in other| 
| 3663 | Q@Dssliap domain | 
| | yy = 2 char adj NCP | 
| 3790 | INssliap suba number | 
| | . = filler char | 
NCP major node | | Nssuu.. uu = channel/Link | 
| | | 
Path | | for loading [ 
| Minor node | no name | 

| ¥p = CTRL address | 

PU/Control Unit SDLC Pssliap X'G0',A-Z2 
PU/Control Unit BSC BssliapxX 


PAE WEVORE SENT AIO TRIP REI ORT SEMEN CRE RAGAN QTE CES OT ET OY COLT A ETS SCT TE AS SIT CT? AED CC CEE SLY TEP APS TS AE ET ON ATL EIS PY ANS NS APE CARS ANTES SENT | 
s 
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APPENDIX B. CDNDT VTAM DEFINITION EXAMPLES. 


In the following examples the numbers indicate the communicating sub-area 
numbers, and the imbedded letters 'S* and '‘'R" indicate ‘send’ and 
*receive’ respectively. 


CDNDT_ APPL DEFINITIONS 


ALOCDN VBUILD TYPE=APPL 
CDN10S11 APPL AUTH=CACQ) 
CDN1OR11 APPL AUTH=CACQ), EAS=1,VPACING=10 


Figure 33. Example of MVS APPL for CDNDT transfer.: This member is 
placed in the VITAMLST dataset on the MVS system sub-area 
10 for two way transfer to MVS sub-area 11. 


ALICDN VBUILD TYPE=APPL 

CDN11512 APPL AUTH=CACQ) 

CDN11R12 APPL AUTH=CACQ),EAS=1,VPACING=10 
CDN11S10 APPL AUTH=CACQ) 

CDN11R10 APPL AUTH=CACQ),EAS=1,VPACING=10 


Figure 34. Example of MVS APPL for CDNDT transfer.: This member is 
placed in the VTAMLST dataset on the MVS system sub-area 
11 for two way transfer to MVS sub-area 10 and VSE 
sub-area 12. 


A12CDN VBUILD TYPE=APPL 
CDN12S11 APPL AUTH=CACQ) 
CDNI2ZR11 APPL AUTH=CACQ), EAS=1,VPACING=10 


Figure 35. Example of VSE APPL for CDNDT transfer.: This member is 
placed in the VTAM B.source book on the VSE_ system 
sub-area 12 for two way transfer to MVS sub-area 11. 


CDNDT_ CDRSC DEFINITIONS 


RLOCDN VBUILD TYPE=CDRSC 
CDN10S11 CDRSC CDRM=M10 
CDN10R11 CDRSC CDRM=M10 


Figure 36. Example of MVS cCDRSC for CDNDT: This member is placed 
in the MVS VTAMLST for sub-area 11. It refers to the 
MVS sub-area 12. 


R11CDN VBUILD TYPE=CDRSC 
CDN11$10 CDRSC CDRM=M11 
CDN11R10 CDRSC CDRM=M11 
CDN11S12 CDRSC CDRM=M11 
CDN11R12 CDRSC CDRM=M11 


Figure 37. Example of sub-host CDRSC for CDNDT: This member is 
placed in the VSE VTAM B.source book for sub-area 12 and 
MVS VTAMLST for sub-area 10. Both sub-area CDRSCs are 
included in one member for ease of maintenance. 
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Ri2CDN VBUILD TYPE=CDRSC 
CDN12S11 CDRSC CDRM=M12 
CDN12R11 CDRSC CDRM=M12 


Figure 38. Example of MVS CDRSC for CDNDT: 
in the MVS VTAMLST for sub-area 


This member is placed 
li. It refers to the 
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APPENDIX C. CONVERSION PROGRAM FOR MNVS_TO VSE LOAD MODULES. 


The listed program was used to take load modules directly from the MVS 
load libraries and create VSE CSERV compatible output. 


This listing is purely for illustrative purposes. 


TITLE 'BLDTEXT - JOB TO CONVERT AN OS LOADMOD TO VSE' 
HEHEHE HEE HE HE DE HE DE HE I HE HE DEK HE HE IE HE DE DE DE HE HE HEHE DE DE HE HK IE DE DE DEK HEE DE DE DK HE HE HK 3 DE DK DK IE HE ED DE OE OE IK HE HE EOE EO CEE 
* BLDTEXT PROGRAM TO TAKE A COPY OF OS LOAD MODULE AND PUNCH INTO 
VSE FORMAT ESD,TXT RECORDS. 


JCL SYSUT1 DEFINES INPUT PDS. 
SYSUT2 DEFINES OUTPUT SEQUENTIAL FILE ON OLRSCHC80 BYTE). 
SYSIN INPUT CARD SPECIFIES LOAD MODULE/S IN THE FORMAT 
LOAD LOADMOD=MEMBER1, (MEMBER2,....MEMBER8) 
MEMBERNAMES MUST BE IN ASCENDING COLLATING SEQUENCE. 
UP Me ae MAY BE SPECIFIED IN ANY ONE RUN FOR 
SAME PDS. 


RESTRICTIONS -ASSUMES MODULE LOAD ADDRESS IS ZERO. 
“MODULE CSECT NAME IS SAME AS MEMBER NAME. 
“VSE PHASENAME WILL BE SAME AS OS LOAD MODULE NAME. 
“NO RELOCATION OF RESOLVED ADDRESSES. 


TO RUN JOBS -MVS -EDIT MEMBER JOBLDTXT IN PDS CARD AND SETUP JCL. 
-~SUBMIT JOB FOR EXECUTION. 


-~VMVSE -JOBS ON OL4106. 
-RUN XFRIN CARD VSETEXT. 
-~SUBMIT FILE MVSNCP CATAL FOR BG EXECUTION TO 
CATALOGUE PHASE/S IN CIL. 
VSE INPUT FILE CONTAINS PHASE,ESD,TXT,END PER PHASE. 
FILE ENDS WITH 7x 
HEHEHE HE HEHEHE DE HE HEHEHE HE DE HE HE DE HE EH IE HE HE HE HK HE EK HK HE DE HE HK HE HEHE HK HE DE DEK HEH DEK HK HEI DE HE DE DE HE IE DEK IKE DE IE EK 


K KK K K K OK OK OK OK OK OM OK OX OX OM<* OX OXK< OM OK OM OK; OOK OK OK 


HEHE HE HE HE HEHE DE DE HE HE DE IE HE DE HE DK DE DE DE DK HEE DE DEK HEE DE DK DEE DE DK DE DE DE DK DEE DK DE DE HE EDK DE DE DE DE DK DK HK 3 DK IK HE DE DE KK EEE OK KE 
* FUNCTION/OPERATION X 


% THIS MODULE RETRIEVES RECORDS FROM LOADMOD DATA SET % 

% CSYSUT1) AND CREATES VSE OBJECT MODULE RECORDS FOR % 

x VSE IN A SEQ. FILE (SYSUT2). x 

% AN INPUT CONTROL CARD SPECIFIES THE MODULES TO BE x 

% LOADED, UP TO EIGHT ON ONE CONTROL CARD. % 

x THE L.M. INPUT RECORDS ARE SEARCHED FOR A CONTROL * 

% RECORD. THIS INDICATES A TEXT RECORD FOLLOWS, AND x 

% THE COUNT AND RELATIVE RECORD ADDRESS IS SAVED. x 

% THE FOLLOWING TEXT RECORD IS THEN CHECKED CDOUBLE BS 

x BUFFERING) AND VSE OBJ MOD. TXT RECORDS ARE CREATED. x 

* A CONTROL RECORD INDICATING LAST TEXT IS LOOKED FOR AND 

% A LAST SWITCH IS SET. x 

x % 

HE HEHE HE DE HE IE HE HE 3G HEE DE IEE DE HE DE IE DE DE DE DE DE HE DE IE DEE DE DE DK DEE DK DE DE DEK DE IE DE DE DE DE HE DEE DE IE DEE EE EK OE EE EE EE HK HK 
SPACE 4 

BLDTEXT CSECT 

% eX 

HX REGISTER EQUATES 

% EH 

RO EQU 0 NOT USED 

R1 EQU 1 WORK 

R2 EQU 2 DCB POINTER 

R3 EQU 3 WORK / TEXT COUNT 

R4 EQU 4 WORK 7 TEXT START ADDRESS 

R5 EQU 5 INPUT RECORD DSECT 

R6 EQU 6 WORK 

R7 EQU 7 WORK 

R& EQU 8 DECB INPUT REG 

RY EQU 9 DECB INPUT REG 

R10 EQU 10 TEXT WORK 

Rill EQU 1i TEXT INPUT POINTER 

R12 EQU 12 BASE 

R13 EQU 13 SAVE AREA POINTER 

R14 EQU 14 NOT USED BY APPLN 


00170008 
00180008 
00190026 
00200026 
00210026 
00220026 
00230026 
00240026 
00250026 
00260026 
00270026 
00280026 
00290026 
00300026 
00310026 
00320026 
00330026 
00340026 
00350026 
00360026 
00370026 


Seoaoaooeeoooco#eoe 


00480008 
00490008 
00500008 
00510008 
00520008 
00530008 
00540008 
00550008 
00560008 
00570008 
00580008 
00590008 
00600008 
00610008 
00620012 
00630012 
00640008 
00650005 
00660005 
00670008 
00680008 
00690008 
00700008 
00710008 
00720008 
00730008 
00740008 
00750008 
00760008 
00770008 
00780008 
00790003 
00800008 
00810008 
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R15 


% 
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15 USER ERROR RETURN CODE 


€14,12),,% 
R12,R15 
BLDTEXT,R12 
R13,SAVEAREAt4 
R2,R13 
R13,SAVEAREA 
R13,8CR2) 


**% OPEN STATIC DATA SETS - SYSPRINT AND SYSIN 
% 


%* 
INIT10 


x% 
INIT12 


% 


THADCB,R2 


CDCBSIN, ,DCBMSG, OUTPUT) 


R2,DCBMNSG 


DCBOFLGS, DCBOFOPN oyeae OPEN OK? 
“YE 


INIT10 
R15,RC12 
ERROR 


% 
R2,HEADMSG 
DCBMSG, CR2) 
R2,DCBSIN 


DCBOFLGS,DCBOFOPN 


INIT12 
R15,RC04 
ERROR 


% 

DCBSIN | 
CARD(80),0C(R1) 
DCBMSG,CARD1 


*¥*% PROCESS THE CONTROL CARD 
¥* 


INIT25 


INIT3O 


INITS1 


INIT38 
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R1,CARD 
R3,CARD 
R4,LNGTH67 
% 


R4¢,TRANS 
10,SYNTAX 
SW1,ON1 
INIT30 


 SW1,0N1 


LOAD,OCRI1) 
SYNTAX 
R1,FIVECO,R1) 
R3,R1 

R4,R3 

INIT25 

% 


LOADM,0CR1) 
SYNTAX 
R1,EIGHTCR1) 
R5,EIGHT 
R6,MEMBER1 


> 


R7,1 
x 


NO-SET ERROR RETURN CODE 


PUT HEADING MSG TO SYSPRINT 
DID SYSIN OPEN OK? 


-~YES- CONTINUE 
NO - SET ERROR CODE 
AND GO TO ERROR EXIT 


GET THE INPUT CONTROL CARD 


MOVE TO BUFFER 
AND PRINT THE CONTROL CARD 


INITIALIZE SCAN REGS 
SET FOR TRANSLATE 
SCAN THE CARD FOR LOAD PARMS. 


BLANK CARD WAS READ 

IS THIS THE FIRST TIME? 

NO.. CHECK THE OPERANDS 

INDICATE FIRST TIME 

OPERATOR SHOULD BE ‘LOAD ° 

IF NOT INDICATE BAD SYNTAX 
INCREMENT PAST OPERATOR 

ADJ LENGTH FOR REMAINDER 

OF THE CARD IMAGE 

GO FIND THE OPERANDS 

wee ANALYSE OPERANDS 

IS THIS 'LOADMOD=' 

NO THEN SYNTAX ERROR 

INCREMENT PAST KEYWORD 

SET MOVE COUNT 

SET FOR MOVE 

SAVE START OF THIS ENTRY 

SET MEMBER COUNT 


READY TO MOVE NAME 


ZEROCONE,R6),ZEROCR1) MVE ONE CHAR. 


R1,ONECRI1) 

R6 ,ONECR6 ) 
ZEROCR1), COMMA 
INIT38 
ZEROCR1),BLANK 
DONE 


R5,INIT31 
SYNTAX 


R1,ONECRI) 
R5,EIGHT 
R&8,LENTRY 


INCREMENT TO NEXT 


IS NEXT A COMMA? 
YES - SET UP FOR NEXT MEMBER NAME 
IS NEXT A BLANK 
- YES - ALL DONE 
COUNT 8 MOVES 
IF NOT END THEN SYNTAX ERROR 


INCREMENT PAST COMMA 
SET MEMBER NAME LENGTH 
POINT TO NEXT ENTRY IN TABLE 


00820008 


00830005 
00840017 


00850000 
00860006 
00870000 
00880000 
00890000 
00900000 
00910000 
00920000 
00930000 
00940006 


ft Jot ee 
Re RRR MMOOOOOOCCOCOWUNWNY 
BOUT RNIN HOW ONAUI DWN HOW O*~! 
fo om hw a an a om om am a an oe ae a oe on om 
SEqmooomrocecoccec0c aon c0coa0caococo°oe 
SmMoorococcococc CODCOD CCOCVOOCOODCOCO 


oO 
p 
RO 
on 
oO 
Q 
o 
fra fact fm fects feat fen fem fret feet fa feed Bat IN) at fet ON feat ft ft at at et Bat at feet at ft at et fet ON at bt fat ON ft ft ft et fat ft fe et ee ee be 00 OOOO 


0123000 


0129000 


KeCoooaocoaqocooses 


0140000 


eSeoaooeooaoaooaoe 


01550016 
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LR R6,R8 
LA R7,ONECR7Z) ADD ONE TO ENTRY COUNT 
B INIT31 GO BACK AND DO NEXT NAME 
KR 
SYNTAX EQU BS 
LA R15,RC16 INDICATE SYNTAX ERROR 
B ERROR GO TO ERROR ROUTINE 
% HK 
KH 
DONE EQU ¥ 
LA oe CHECK NO OF MEMBERS IN LIST 
CR R6,R 
BL SYNTAX ERROR IF MORE THAN MAX. ALLOWED 
VALID CONTROL CARD RECEIVED 
STH R7,NENTRY SET NUMBER OF ENTRIES IN THIS LIST 
LA R6,BLDLIST SET UP POINTER TO BLDL LIST 
* OPEN SYSUT1 DATA SET FOR LOAD MODULES 
OPEN DCBUT1 
LA R2,DCBUT1 
ny DCBOFLGS,DCBOFOPN DID IT OPEN? 
BO INIT45A YES - CONTINUE 
LA R15,RC08 NO- SET ERROR RETURN CODE 
B ERROR 
% 


INIT4¢5A OPEN CDCBUT2,0OUTPUT) OPEN THE QUTPUT DATA SET 
LA R2,DCBUT2 
TM DCBOFLGS,DCBOFOPN TEST IS OPEN IS OK 


BO INIT45 YES 
LA R15,RC20 ELSE SET ERROR CODE 
B ERROR 

HHH 

INIT45 EQU x DO BLDL AND FIND FOR APPROPRIATE MEMBER 
LA R5,DCBUT1 | 
BLDL (R5),BLDLIST 
LTR R15,R15 WAS BLDL SUCCESSFUL 
BZ INPUT46 YES- CONTINUE 
LA R15,RC28 NO- SET ERROR CODE 
B ERROR 

KK 


INPUT&6 EQU ¥ 

LA R&,RALTTRKI-BLDLISTCR6) 

FIND DCBUT1,(R8),C 
RRXKXKRXK ST R5,DECBINI+EIGHT SET UP FOR DECB SWAPPING 
RRXKKXXK ST R5,DECBIN2Z+EIGHT ¥X*X**% NOT NEEDED XXX 

LA R8,DECBINI DECB ADDRESSES IN REGS 8 AND 9 


LA R9,DECBIN2 
READ EQU x READ RECORDS FROM LOAD MODULE 
READ (R8&),SF,MF=E 
SWAP XR R8,R9 SWAP DECB REGS 
XR R9,R8 FOR FOLLOWING CHECK 
XR R8,R9 | OR BUFFER PRIME 
™ SW1,BUFSW BUFFERS NEED PRIMED? 
BO INPUT1O NO- CONTINUE 
Ol SW1,BUFSW YES~- INDICATE PRIMED 
B READ AND GO BACK TO PRIME SECOND 
INPUT1I0 EQU 2 
CHECK CR8) CHECK FOR EARLIEST READ 


**® LOAD MODULE RECORD IN BUFFER POINTED TO BY R8 
USING INPUTDS,R5 ? 

2 R5,X'O0C*CR8) SET UP ADDRESSAABILITY ON BUFFR 

HR KKK | 

XHRRX 

Pett eters eset ert eti sete set retires tttetiistttettr esti esti testis. 

est tet t eset ttt tet ttt i tetitttt ii test ttt titre sett testi teeter t te. 


LA R11,INPUTDS AND POINT TO START OF TEXT AREA 

™ TXTSW, ONTXT TS THERE A TEXT RECORD FOLLOWING ? 

BO INPUT29  YES~ SEND BUFFER TO OUTPUT 

T™ LMTYPE,CESD IS THIS A CESD RECORD ? 

BO CESDO0 YES- GO PROCESS IT 

™ TXTSW, ONESD HAS AN ESD BEEN PROCESSED ? 

BO OUTPTOI YES - THEN PUT OUT PHASE/VESD RECORD 
TSTCNTRL TM LMTYPE, CONTROL DOES TEXT FOLLOW ? 

BO CNTRLOI YES- GO PROCESS IT 

B READ ELSE GO BACK AND READ NEXT 


01560016 
01570001 
01580001 
01590001 
01600001 
01610001 
01620001 
01630001 
01640001 
01650016 
01660016 
01670016 
01630016 
01690016 
01700012 
01710013 
01720009 
01730009 
01740003 
01750008 
01760014 
01770003 
01780003 
01790014 
01800014 
01810014 
01820014 
01830014 
01840014 
01850014 
01860001 
01870003 
018380003 
01890003 
01900003 
01910003 
01920003 


01980012 


01990012 
02000003 
02010012 
02020003 
02030003 
02040003 
02050003 
02060003 
02070003 
02080003 
02090003 
02100003 
02110001 
02120003 


62200018 
02210007 
02220003 
02230003 
02240003 
02250021 
02260021 
02270021 
62280003 
02290003 
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xx 
%x 
CESDO0 


TESTYPE 


CHEKHIAD 


UPOINTER 


XX 


% 
OUTPTO1 


LOOP1 


X 
OUTPTO2 


XXX 
xX XX 
CNTRLOL 


xX XX 
XXX 
INPUT29 


MVETXT 


54 


Raleigh International Systems Center 


* 

TXTSW, ONESD 
R3,R3 
R3,3,TESDLEN 
R3,ITESDC(R3) 
R4¢,IESD 
8CR4),X'0F!* 
UPOINTER 
R11,R1i1 
R11,7,9CR4) 
R11,LMODLOA 
CHEKHIAD 
R11,LMODLOA 
% 


R11,LMODHIA 
UPOINTER 
R11,LMODHIA 
R10,R10 | 
R10,7,13C0R4) 
R10,R11 
R10,7CR10) 
R10,ROUNDMSK 
R10,LMODLEN 

% 


R4,16CR4) 
R4,R3 
TESTYPE 
READ 


% 
TXTSW,255-ONESD 


DPHASENM, MEMBERI-BLDLISTCR6) 


R10,DPHASENM+7 
0(R10),BLANK 
OUTPTO2 
R10,LOOP1 


X 


1€3,R10),PLUSZRO 


DCBUT2,DPHASE 


DESDNAM, MEMBERI-BLDLISTCR6) 


R10,LMODLEN 
R10,7,DESDLEN 
R10,R10 
R10,LMODLEN 
R10,LMODLOA 
R10,LMODHIA 
DCBUT2,DESD 
TXTSW,255-ONTXT 
TSTCNTRL 


% 

R3,COUNT 
R4,7,INADDR 
TXTSW, ONTXT 
LMTYPE, ENDOF 
READ 
TXTSW,ONLAST 
SWAP 


% 
So 
MVETXT 

R10,R3 
R10,DTXTLEN 
R4,7,DTXTRAD 
DTXTINF, BLANK 


PROCESS THE ESD RECORD 
INDICATE ESD RECORD 


PICK UP LENGTH OF THIS RECORD | 
POINT TO END OF DATA 

POINT TO START OF DATA 

TEST IF CSECT TYPE 

BR IF NOT 


PICK UP CSECT START ADDR 

AND TEST IF LOWER THAN PREV SAVED 
BR IF NOT...ELSE 

STORE LO ADDRESS 


AND TEST IF GT PREV. SAVED 
BR IF NOT HIGHEST ADDRESS 


STORE HI ADDRESS 


PICK UP CSECT LENGTH 
ADD TO ACCUMULATED LENGTH 
ROUND UP TO NEXT F/W 


AND STORE IT 


POINT TO NEXT ENTRY IN RECORD 
TEST IF END REACHED 

CONTINUE LOOP IF NOT 

ELSE GET ANOTHER RECORD 


SET UP O/PUT PHASE,ESD CARDS 
INDICATE ESD PROCESSED 

MOVE IN PHASE NAME 
DROP OUT TRAILING BLANKS 


MOVE IN START LOC ADDR 


PUT OUT PHASE CARD 

MOVE IN ESD NAME 
PICK UP LOAD MODULE LENGTH 
STORE MODULE LENGTH 


RESET LENGTH SAVE AREA 

RESET L.M. LO STORAGE ADDR. 
RESET L.M. HI STORAGE ADDR. 
PUT OUT ESD CARD 

TURN OFF TEXT SW 

GO PROCESS THE CURRENT RECORD 


PROCESS THE CONTROL CARD 
SAVE CONTORL INFO - COUNT 


- START ADDRESS 
INDICATE NEXT IS TEXT 
IF NOT END OF LOAD MODULE 
GO AND GET NEXT INPUT 
OTHERWISE INDICATE LAST 
AND CHECK LAST RECORD 


PROCESS THE INPUT TEXT RECORD 
TEST FOR MORE THAN 1 VSE RECORD 


USE MAX IF MORE THAN ONE 
OTHERWISE USE REMAINDER 
SET TXT LENGTH 

AND START ADDRESS 

CLEAR TEXT FIELD 


02300003 
02310003 


02320021 
02330021 
02340021 
02350021 
02360021 
02370021 
02380021 
02390021 
02400021 
02410024 
02420024 
02430024 
02440024 
02450024 
02460024 
02470025 
02480024 
02490024 
02500024 
02510024 
02520023 
02530023 
02540021 


—602550021 


02560021 
02570021 


02580021 


02590021 
62600021 
02610021 
02620024 
02630021 
02640013 
02650007 
02660003 
02670003 
02680003 
02690003 
02700003 
02710003 
02720004 
02730013 
02740021 
02750021 
02760021 
02770021 
02780024 
02790024 
02800007 
02810003 
02820021 
02830003 
02840003 
02850006 
02860008 
02870008 
02880008 
02890003 
02900003 
02910003 
02920003 
02930003 
02940003 
02950003 
02960003 
02970003 
02980008 
02990003 
03000008 
03010007 
03020008 
03030003 
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MVC DIXTINFt1 Ch *DTIXTINF-1),DTXTINF 
BCTR R10,0 
EX R10,MVETXTIN MOVE IN TEXT INFO 
PUT DCBUT2,DITXT PUT OUT TXT RECORD 
LA R4¢,10R10,R4) ADJUST COUNTS 
LA R11,10R10,R11) AND POINTERS 
LA R10,1¢R10) 
SR R3,R10 
BP INPUT29 REDO IF MORE TEXT 
NI TXTSW,255-ONTXT ELSE INDICATE NEXT NOT TEX? 
™ TXTSW, ONLAST TEST FOR LAST TEXT 
BO INPUTEOF FINISH OFF IF LAST 
B READ OTHERWISE GO AND GET MORE IN 
KRKH 
HK KK 
MVETXTIN MVC DTIXTINFC1),0CR11) 
HKKK 
EJECT 
ENDFILE EQU % EOF ON CARD INPUT FILE 
LA R15,RC24 SET ERROR CODE.. NO LOADMOD CARD 
B ERROR 
% KX 
KX 
INPUTEOF EQU * EOF ON LOAD MODULE INPUT 
™ C-BLDLISTCR6),ALIASIND IS THIS AN ALIAS? 
BNO NORMAL NO - NORMAL 
™ ATTRIB-BLDLISTCR6),RENREUS IS ALIAS REENT/REUSE? 
BZ NORMAL NO - 
MVC DENDNTRY,EPAALS-BLDLISTCR6) ELSE USE ALIAS ENTRY PT 
B PUTEND AND CONTINUE 
NORMAL EQU x 
MVC DENDNTRY,EPAMEM-BLDLISTCR6) SET NORMAL ENTRY PT. 
PUTEND PUT DCBUT2,DEND FINISH UP O/P MODULE 
MVI TXTSW, 0 RESET SWITCHES 
NI SW1,255-BUFSW 
MVC DPHASEBL(8),BLANKS AND OTHER FIELDS 
AH R6,LENTRY POINT TO NEXT ENTRY IN LIST 
LH R1,NENTRY THEN TEST IF ALL 
BCTR R1,0 ENTRIES IN LIST 
STH R1,NENTRY HAVE BEEN PROCESSED 
LTR R1,R1 
BNZ INPUT46 IF NOT THEN PROCESS NEXT 
PUT DCBUT2,DSLASHAS FINISH UP O/P FILE 
PUT DCBMSG, ENDMSG MESSAGE ALL DONE 
CLOSE (CDCBSIN,,DCBMSG,) CLOSE ALL FILES 
CLOSE (DCBUT1,,DCBUT2,} 
L R13,4CR13) AND RETURN 
RETURN (€14,12),T,RC=0 
SPACE 4 
HRKX 
KKK ERROR ROUTINE -- ABEND WITH USER CODE 
KK 
ERROR EQU X 
LR R5,R15 
ABEND (5),,STEP 
EJECT | 
*¥*¥X**X PROGRAM DEFINITIONS AND DSECTS 
HHH KK 
SAVEAREA DC 18F'O* REGISTER SAVE AREA 
RCO04 EQU 4 SYSIN NOT OPEN OK 
RC08 EQU 8 SYSUT1 NOT OPEN OK 
RC12 EQU 12 SYSPRINT NOT OPEN OK 
RC16 EQU 16 SYNTAX ERROR ON CONTROL CARD 
RC20 EQU 20 SYSUT2 NOT OPEN OK 
RC24 EQU 24 NO INPUT CONTROL CARD 
RC28 EQU 28 | BLDL ERROR 
| SPACE 2 
CARDI DC X'FO! 
DC CLi2’ * 
CARD DC CLi2o* ° 
TRANS TRT 0€01,R1),TRTABLE 
LNGTH67 EQU 67 MAX LENGTH FOR TRANSLATE 
SW1 DC X'00' | 
ON1 EQU X'80' 


03040003 
03050003 
03060003 
03070004 
03080008 
03090003 
03100003 
03110008 
03120012 
03130003 
03140003 
03150003 
03160003 
03170003 
03180003 
03190007 
03200003 
03210003 
03220004 
03230004 
03240004 
03250004 
03260004 
03270004 
03280018 
03290018 
03300018 
03310018 
03320018 
03330018 
03340018 
03350018 
03360018 
03370014 
03380014 
03390014 
03400014 
03410014 
03420014 
03430014 
03440014 
03450014 
03460013 
03470004 
03480004 
03490004 
03500004 
03510017 
03520004 
03530004 
03540004 
03550004 
03560004 
03570008 
03580008 
03590004 
03600003 
03610001 
03620001 
03630007 
03640007 
03650006 
03660006 
03670006 
03680006 
03690006 
03700006 
03710009 
03720003 
03730012 
03740012 
03750006 
03760003 
03770003 
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BUFSW 
LOAD 
LOADM 
BLANKS | 
TRTABLE 


ZERO 
ONE 
FIVE 
EIGHT 
COMMA 
BLANK 
TXTSW 
ONTXT 
FIRSTXT 
ONESD 
ONLAST 
PLUSZRO 
ENDMSG 


HEADMSG 


HK KKK 
LMODLEN 
LMODLOA 
LMODHIA 
ROUNDMSK 
KKK 
DPHASE 


DPHASENM 
DPHASEBL 
% % 


DESD 


DESDNAM 


DESDLEN 
%X 

DTXT 
DTXTRAD 
DIXTLEN 
DIXTINF 
MAXTXT 


%X 
DEND 


DENDNTRY 


%X 
DSLASHAS 
*%% 

%*X 


KX 
DCBSIN 


DCBMSG 
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X'40' 
C'LOAD ! 
CL&8'LOADMOD='" 
CL8* ¢ ae | | 
64X'FF® TRT TABLE FOR BLANK RECORD SCAN 
191X*FF* 
0 
1 
5 
8 
Ct" 
Cc? Y 
X'00' 
X'460' 
X'80' 
X'20' 
X*10' 
Ct,+0' 
X'FO! PRINT CONTROL 
eran ~- JOB SUCESSFULLY COMPLETED --' 
i 
CL120' -~ GENERATE VSE OBJECT MODULES --'* 
F'Q' AREA TO ACCUM INPUT MODULE LENGTH 
Roe LOAD MODULE LO STORAGE ADDRESS | 
Fro? LOAD MODULE HI STORAGE ADDRESS 
X'FFFFFFF8° MASK TO ROUND TO NEXT F/W 
CL10' ° VSE PHASE CARD 
C'PHAS : 
CL&* ° 
CL54" ° 
X'02' COLS 1 12.2.9 PUNCH VSE ESD CARD 
CtESD! 2-4 ESD 
CL6* ! 5-10 BLANK 
X*'0010' 11-12 VAR. FLD COUNT 
ClLe* ! 13-14 BLANK 
X'O001' 15-16 ESID OF SD 
CL8* * 17-36 .. NAME 
X'oo000000' -. ESD TYPE, ORIGIN 
» .. BLANK 
X'O000000' .. LENGTH 
CL50" * 37-80 BLANK | 
X'02' COLS 1 12.2.9 PUNCH 
C'TXT' 2-4 TXT 
cr! 5 BLANK 
X'000000' 6-8 RELATIVE ADDRES 
CL2' ! 9-10 BLANKS 
X'0000' li-i2 BYTE COUNT 
ClL2' ' 13-14 BLANK 
X'0001' 15-16 ESID 
ere : 17-72 TEXT INFO 
5 
CLs' * 73-80 BLANKS 
X'02! VSE END CARD 
CL4'END !' 
X'000000' ADDRESS OF ENTRY POINT 
CL6" ! BLANKS 
X'oooi' ESID. NO. 
CL65" ! ESID NO. 
CL80'7% * 


FOR ALL DATA SETS 


DDNAME=SYSIN, DSORG=PS, EROPT=ABE,MACRF=(GL),RECFM=FB, 
EQDAD=ENDFILE 


DDNAME=SYSPRINT, DSORG=PS, RECFM=FA,MACRF=C(PM) , DEVD=DA, 


nN 


03780003 
03790003 
03800003 
03810003 
03820007 
03830007 
03840007 
03350003 
03860003 
03870003 
03880003 
03890003 
03900004 
03910003 
03920003 
03930003 
03940003 
03950007 
03960003 
03970009 
03980003 
03990009 
04000003 
04010004 
04020021 
04030024 
04040024 
04050022 
04060021 
04070004 
04080004 
04090007 
04100014 
04110004 
04120004 
04130004 
04140004 
04150004 
04160004 
04170004 
04180018 
04190018 
04200018 
04210018 
04220018 
04230004 
04240004 
04250004 
04260004 
04270004 
04280020 
04290004 
04300004 
04310004 
04320004 
04330007 
04340004 
04350004 
04360004 
04370018 
04380018 
04390018 
04400018 
04410018 
04420004 
04430004 
04440004 
04450004 
04460004 
04470004 


¥04480004 


04490004 
04500004 


¥04510004 


SPACE 2 
DCBUTI 
SPACE 2 
DCBUT2 
SPACE 2 
xX 
READ 
READ 
KKH 
% HR 
XXKXRX 
BLDLIST DS 0H 
NENTRY DC H'i' 
LENTRY DC H'58! 
MEMBER1 DC CLS*.™ 
RALTTRK1 DC 4X'00' 
Zz DC X'00°* 
C DC X'o0* 
ORG MEMBER1+22 
ATTRIB EQU x 
ORG MEMBER1+29 
EP AMEM EQU % 
ORG MEMBER1+43 
EPAALS EQU % 
ORG MEMBER1+58 
MEMBER2 DC CL&* * 
DC XL50'00°* 
MEMBER3 DC CLg*.' 
DC XL50'00* 
MEMBER& DC CL8* * 
DC XL50'O00' 
MEMBER5 Dc CL8' * 
DC XL50'00°* 
MEMBER6 DC CL8* ° 
DC XL50'00* 
MEMBER7 DC CL&* ! 
DC XL50'00' 
MEMBER8 DC CL8&: * 
DC XL50'00* 
MAXMEMBR EQU 8 
ALIASIND EQU X'30' 
RENREUS EQU X'Cco! 
* x 
SPACE 2 
INBFIA DC ACINBF1V) 
INBF2A C ACINBF2V) 
LTORG 
DS OD 
INBF1V DS 2000C 
INBF2V DS 2000C 
EJECT 
**X 
XXX DSECTS 
% XX 
INPUTDS DSECT 
LMTYPE DC AL1(0) 
¥ 
CONTROL EQU X*'01"* 
ENDOF EQU X"'0C? 
CESD EQU X*20' 
RLD EQU X'02" 
ORG X+8 
INADDR DC AL3 C0) 
ORG X+2 
COUNT DC AL2(0) 
ORG LMTYPE+6 
IESDLEN DC AL2(0) 
IESD EQU x 
ORG » 
SPACE 6 
Appendix C. 
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BLKSIZE=121,LRECL=121 


DCB BLKSIZE=1028, EODAD=INPUTEOF, DDNAME=SYSUT1,DEVD=DA, 
DSORG=P0,MACRF=(R),NCP=2,RECFM=U 


DCB BLKSIZE=80,DDNAME=SYSUT2,DEVD=DA, DSORG=PS,MACRF=C(PM), 


RECFM=FB,LRECL=80 


DECBIN1,SF,DCBUT1,INBF1V,'S*,MF=L 
DECBIN2,SF,DCBUT1, INBF2V,'S*",MF=L 


BLDL LIST FOR LOAD MODULE DATA SET 


NO.OF ENTRIES THIS LIST 

EACH ENTRY 58 BYTES LONG 
MEMBER NAME -- INITIALLY BLANK 
USED IN FIND 

FLAG BYTE 

FLAG BYTE 


ATTRIBUTE FIELD 
ENTRY POINT IF MEMBER DIR. ENTRY 
ENTRY POINT IF ALIAS DIR. ENTRY 


MAX. NO OF ENTRIES IN BLDL LIST 
INDICATES ALIAS MODULE 
REENTERABLE/REUSABLE LOAD MODULE 


DSECT FOR LOAD MODULE 

TYPE INDICATOR FOR LOAD 
MODULE RECORD. 

CONTROL RECORD INDICATOR 

END OF LOAD MODULE INDICATOR 
CESD RECORD INDICATOR 

RLD RECORD INDICATOR 


RELATIVE ADDR. OF FOLLOWING TEXT REC. 
NO.OF BYTES IN FOLLOWING TEXT RECORD 


ESD RECORD LENGTH 
START OF ESD INFO 


04520004 
04530004 


*045490004 


04550004 
04560004 


*04570007 


04580004 
04590004 
04600004 
04610008 
04620008 
04630004 
04640004 
04650004 
04660004 
04670012 
04680006 
04690004 
04700004 
04710004 
04720004 
04730004 
04740004 
04750004 
04760004 
04770004 
04780004 
04790004 
04800004 
04810004 
04820016 
04830016 
04840016 
04850016 
04860016 
04870016 
04880016 
04890016 
04900016 
04910016 
04920016 
04930016 
04940016 
04950018 
04960018 
04970004 
04980008 
04990008 
05000008 
05010008 
05020008 
05030015 
05040015 
05050004 
05060004 
05070004 
05080004 
05090004 
05100004 
05110004 
05120004 
05130004 
05140004 
05150004 
05160004 
65170004 
05180004 
05190004 
05200021 
05210021 
05220021 
05230021 
05240004 
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DCBD DSORG=P5 a DSECT FOR DCB’S 
END BLDTEXT | 


05250008 
05260004 
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APPENDIX D. POWER VERSION 2 NETWORKING DEFINITIONS 


The tests described in the body of this document are based on the coding 
which follows. For a fuller description of each parameter refer to the 
appropriate product description manual. 


POWERV2 POWER 
DBLK=0, 
TRACKGP=0, 
BLOCKGP=0, 
LTAB=(€10,00,05,10,15,20,25,30,35,40,45,50,56), 
PRI=3, 
SUBLIB=S, 
ACCOUNT=YES, 
STDLINE=(0,0), 
STDCARD=(0,0), 
JLOG=YES, 
JSEP=(0,0), 
RBS=(0,0), 
RDREXIT=NO, 
PAUSE=NO, 
SPOOL=YES, 
SNA=(8,,RALVSES);, 
FEED=NO, 
MULT12=NO, 
COPYSEP=YES, 
CLRPRT=YES, 
MRKFRM=YES, 
SHARED=NO, 
PNET=POWRJES < 

END 


Figure 39. Example of POWER Version 2 macro coding for sub-area 12: 


SNA parameter has been changed to reflect a new APPLID and 
parameter, PNET, has been added. 


POWRJE3 PNODE NODE=RALVSE3,LOCAL=YES,APPLID=RALVSE3,AUTH=NET 
PNODE NODE=RALVSMV3,APPLID=RALVSMV3,AUTH=NET 
pee NODE=RALYDPD3S, AUTH=NET,ROUTE1=RALVSMVS 


Figure 40. Example of PNET macro coding for sub-area 12: The macro 
defines the adjacent node RALVSMV3 sub-area 11, andm a 
further node off sub-area 11 which is VM via a virtual 
channel to channel. 


ena: APPL AUTH=CACQ,PASS) ,MODETAB=MTPNET,VPACING=3 


Figure 41. Example of APPL statement for sub-area 12 POWER 
networking: This statement is included ina B.source 
member accessible to m VTAM. 


% 
% 
¥% 
% 
% 
% 
x 
% 
% 
% 
x 
% 
%* 
% 
% 
% 
% 
% 
% 
% 
% 
x 
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APPENDIX E. NJE-JES2 DEFINITION EXAMPLES. 


MRKKKKKKKKKKXKXKXRATI2 IS JOB ENTRY PROGRAM. 

RMT1i2 LUTYPE1,BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0,VARIABLE,WAITIME=1,LUNAME=JEP22A11 

R12.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R12.RD1 

R12.PU1 START,NOSEP 

HKKXKKKKKXKXXXXXRMTIS IS JOB ENTRY PROGRAM. 

RMT13 LUTYPE1,BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0,VARTABLE,WAITIME=1,LUNAME=JEP22B11 

R13.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP,UCS=PN 

R13.RD1 

R13.PU1 NOSEP 

KRM KKK KKKKKXKXRMTIG IS JOB ENTRY PROGRAM 

RMT14 LUTYPE1, BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0,VARIABLE,WAITIME=1, LUNAME=JEP22C11 

R14.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP,UCS=PN 

R14¢.RD1 

R14.PU1 NOSEP : 

XXRXXXXXXXXXRXRMTI5 IS JOB ENTRY PROGRAM. 

RMT15 LUTYPE1, BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0, VARTABLE,WAITIME=1,LUNAME=JEP22D11 

RI5.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R1I5.RD1 

R15.PU1 NOSEP 

XRXXXKXXRKXXXNXXRMTI16 ITS JOB ENTRY PROGRAM. 

RMT16 LUTYPE1,BUFSIZE=256, COMP, CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0,VARTABLE,WAITIME=1,LUNAME=JEP22E11 

R16.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R16.RD1 

R16.PU1 NOSEP 

KKK KXKKKKKKKXXKXRMTITZ IS JOB ENTRY PROGRAM 

RMT17 LUTYPE1,BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, 
SETUPHDR, DISCINTV=0,VARIABLE,WAITIME=1,LUNAME=JEP22F11 

R17.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R17.RD1 

R17.PU1 NOSEP 


Figure 42. Excerpt of NJE-JES2 start-up list for JEP 
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x NJE DEFINITION PARAMETER x 
HK HEH KH HK HH HEHE HK HK HK HH HK HK HE HEHE HK HK HH HEHEHE HEHE KR KK 
&NUMTPBF=150 

&NUMNODE=99 

&NUMNAT=256 

&NUMNIR=3 

&NUMNJIT=3 

&NUPNSR=3 

— &NUMNSTH3 

&NUMPATH=8 

&NUMLNES=20 

&NUMRJE=110 

&NETLNES=20 

&O0WNNODE=11 

XMLBFSIZ=300 

&MLBFSIZ=512 

Ni NAME=RALYDPD,NETAUTH,SNA 


N2 NAME=RALYDPD2,NETAUTH, SNA 
N3 NAME=RALYDPD3,NETAUTH 
N4 NAME=RALYDPD4,NETAUTH 
N5 NAME=RALYDPD5,NETAUTH 
N8 NAME=RALVSI1V38,SNA,NETAUTH 


Nil NAME=RALVSMV3,SNA,NETAUTH 

N12 NAME-RALVSE3,SNA,NETAUTH 

N19 NAME=REMJES19,SNA 

N21 NAME=RALVSMV1,SNA,NETAUTH 

N26 NAME=RALVSMV4,SNA,NETAUTH 

LINE1 UNIT=SNA 

LINE2 UNIT=SNA 

LINE3 UNIT=SNA 

LINES UNIT=SNA 

LINES UNIT=SNA 

LINE6 UNIT=SNA 

LINE7 UNIT=SNA 

LINE&8 UNIT=SNA 

LINE9 UNIT=SNA 

LINE1O UNIT=SNA 

LINE12 UNIT=310,TRANSP,HISPEED, FDUPLEX 

LINE13 UNIT=410,TRANSP,HISPEED, FDUPLEX 

LINE14 UNIT=510,TRANSP,HISPEED, FDUPLEX 

LINE15 UNIT=070,TRANSP 

LINE16 UNIT=069,TRANSP 

LINE17 UNIT=072,  TRANSP, FDUPLEX 

CONNECT NODEA=11,MEMBA=1,NODEB=08,MEMBB=1,REST=2 
CONNECT NODEA=11,MEMBA=1,NODEB=03,MEMBB=1,REST=2 
CONNECT NODEA=11,MEMBA=1,NODEB=02,MEMBB=1,REST=2 
CONNECT NODEA=11,MEMBA=1,NODEB=12,MEMBB=1,REST=2 
CONHECT NODEA=03,MEMBA=1,NODEB=01,MEMBB=1,REST=2 
CONNECT NODEA=03,MEMBA=1,NODEB=05,MEMBB=1,REST=2 
CONNECT NODEA=03,MEMBA=1,NODEB=21,MEMBB=1,REST=2 
CONNECT NODEA=03,MEMBA=1,NODEB=04,MEMBB=1,REST=2 


Figure 43. Excerpt of NJE-JES2 start-up list for PNET 


K KK KK K OK KK OK OK OK OK OK «OK 


VBUILD TYPE=CDRSC 
RALVSE3 CDRSC CDRM=M12 


Figure 44. CDRSC for NJE-PNET 


VBUILD TYPE=APPL 
RALVSMV3 APPL AUTH=(ACQ),EAS=(5),ACBNAME=RALVSMV3, VPACING=7, 
MODETAB= MODENJE, DLOGMOD= MTNJE72 


Figure 45. APPL for NJE-PNET 
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PRINT NOGEN 
MODENJE MODETAB 
MODEENT LOGMODE=MTNJE72,COS=NJE, 
FMPROF=X'03', 
TSPROF=X'03', 
PRIPROT=X'72', 


SECPROT=X'72', 
COMPROT=X'4020', 
RUSIZES=X'8686" 
MODEEND 
END 


Figure 46. MODETABLE for NJE-PNET 
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PPENDIX F. JEP RELATED DEFINITIONS 


The runs involving JEP as a VSE VTAM data transfer program were carried 
out on a different network configuration. This configuration shown in 
Figure 47, was replaced during the writing of this guide by that used in 
the rest of this book. This older network had different sub-area and 
ee ere but used basically the same operating systems as the new 
network. 


RALVSMV3 RALVSMV8 
MVS/SP MVS/SP 


Sub-area 11 Sub-area 10 


RALYDPD3S RALYDPD2 
VSE MVS/SP 


Sub~area 22 Sub-area 21 


Figure 47. Network Overview: Diagram of a section of the network 
used for testing jobs described in this guide 


Some of the relevant definitions used in the MVS/VSE tests follow. 
For a more detailed discussion of JEP refer to the IBM WTSC publication 


CNM/Managin Interconnected Svstems, as listed in "Chapter § 8. 
Bibliography" on page 43. 
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JEP TABLE 


PBESSY 


PBESSY 


PBESSY 


PBESSY 


PBESSY 
END 


Figure 48. JEP macro for VSE POWER version i: The assembled definition is 
cataloged into a core image library accessible to POWER. 
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MACRF=START, 
PHASE=JEPV2A, 
DUMMY =DUMNMY 

MACRF=JEP, 


JEPAPPL=(JEP22A11,JEP22B11, JEP22C11,JEP22D11, 


JEP22E11,JEP22Fil, 
JEP22A01,JEP22B01,JEP22C01, 
JEP22D01,JEP22E01,JEP22F01, 
JEP22A21,JEP22B21,JEP22C21, 
JEP22D21,JEP22E21,JEP22F21), 
PSWRD=DOSJEP, 
DUMMY = DUMMY 

MACRF=HOST, 
HSTAPPL=RALVSMV3, 
HSTTYPE=JES2, 
REMOTE=011, 
DUMMY = DUMMY 
fae MACRF=ID, 
JEPAPPL=(CJEP22A11,JEP22B11,JEP22Cl11, 
JEP22D11,JEP22E11,JEP22F11), 
HSTAPPL=RALVSMV3, 
AUTOLOG=YES, 
LOGMODE=LGJEPJES, 
DUMMY = DUMMY 

MACRF=END 


JEP VIAM DEFINITIONS 
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R22AJEP VBUILD 
JEP22A11 CDRSC 
JEP22B11 CDRSC 
JEP22C11 CDRSC 
JEP22D11 CDRSC 
JEP22E11 CDRSC 
JEP22F1l1 CDRSC 


Figure 49. JEP 


in 


TYPE=CDRSC 
CDRM=M22 
CDRM=M22 
CDRM=N22 
CDRM=M22 
CDRM=M22 
CDRM=M22 


CDRSCs VSE POWER Version 1: The CDRSCs 
the B.source library for VSE VTAM. 


are placed 


KK K XK K KK KK K OK OK KK 


KKK KK K K 
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A22JEP VBUILD TYPE=APPL 

POWER APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22A11 APPL MODETAB=LGJEPJES, VPACING=7,EAS=1 
JEP22B11 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22C11 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22D11 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22E11 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22F11 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22A01 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22B01 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22C01 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22D01 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22E01 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22F01 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22A21 APPL MODETAB=LGJEPJES, VPACING=7,EAS=1 
JEP22B21 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22C21 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22D21 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 
JEP22E21 APPL MODETAB=LGJEPJES,VPACING=7, EAS=1 
JEP22F21 APPL MODETAB=LGJEPJES,VPACING=7,EAS=1 


Figure 50. JEP APPLS: The APPLS are placed in the B.source library 
for VSE VTAM. 


LGJEPJES MODETAB 
MODEENT LOGMODE=LGJEPJES,FMPROF=X'03',TSPROF=X'03', 
PRIPROT=X'A3',SECPROT=X'A1',COMPROT=X'7080', 
PSNDPAC=X'00',SRCVPAC=X'00',SSNDPAC=X'01', 
RUSIZES=X'8585',PSERVIC=X'01102000F100C00000010060' 
MODEEND 
END 


Figure 51. JEP mode table: The assembled mode table is’ placed in 
core image library accessible to VTAM. 
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PONER (VERSTON 1) FOR JEP 


 POWERTST POWER 
: . DBLK=0, .. 
TRACKGP=0,- ; 
BLOCKGP=0, | 
LTAB=(10,00,05,10,15,20,25,30,35,40, 45, 50, 56), 
PRI=3, 
SUBLIB=P, 
ACCOUNT=NO,. | 
STDLINE=(0,0),. 
STDCARD=(0,0), 
JLOG=YES, 
JSEP=(0,0), 
RBS=(0,0), 
RDREXIT=NO, - 
PAUSE=NO, 
SPOOL=YES, 
SNA=(6), 
FEED=NO, 
MULTI2=NO, 
COPYSEP=YES, 
CLRPRT=YES, 
MRKFRM=YES, 
SHARED=NO, 
JEP=70 


x KKK KK KKK KK KOK OK K KOK KOK OK OK OK OK 


END 


Figure 52. POWER parameters used with JEP: The last parameter is the only 
addition to this otherwise standard POWER Version 1 list. 
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NJE FOR JEP 


KKK KKK KKKKHKXXRMTI2 IS JOB ENTRY PROGRAM. 

RMT12 LUTYPE1,BUFSIZE=256,COMP, CONSOLE, NUMPR=1,NUMPU=1,. C 
SETUPHDR, DISCINTV=0, VARIABLE,WAITIME=1,LUNAME=JEP22A11 

R12.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R12.RD1 

R12.PU1 START,NOSEP 

KKK RKKKKXXXXXXRMT13 IS JOB ENTRY PROGRAM. 

RMT13  LUTYPE1,BUFSIZE=256, COMP, CONSOLE,NUMPR=1,NUMPU=1, C 
SETUPHDR, DISCINTV=0, VARIABLE,WAITIME=1,LUNAME=JEP22B11 

R1i3.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP,UCS=PN 

R13.RD1 

R13.PU1 NOSEP 

KHKKKHKKKKXXXXXRMTI1G IS JOB ENTRY PROGRAM 

RMT14 LUTYPE1,BUFSIZE=256, COMP, CONSOLE, NUMPR=1,NUMPU=1, Cc 
SETUPHDR, DISCINTV=0, VARIABLE,WAITIME=1,LUNAME=JEP22C11 

R14.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP,UCS=PN 

R14.RD1 

Ri4.PU1 NOSEP 

EE KEK KKK KKKKKXRMTI5 IS JOB ENTRY PROGRAM. 

RMT15 LUTYPE1,BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, | C 
SETUPHDR, DISCINTV=0, VARIABLE,WAITIME=1,LUNAME=JEP22D11 

R15.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R15.RD1 

R15.PU1 NOSEP 

HMR KKK KKKKKKXXKXRMTI1G IS JOB ENTRY PROGRAM. 

RMT16 LUTYPE1,BUFSIZE=256,COMP, CONSOLE, NUMPR=1,NUMPU=1, Cc 
SETUPHDR, DISCINTV=0,VARIABLE,WAITIME=1,LUNAME=JEP22E11 

R16.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R16.RD1 

R16.PU1 NOSEP 

KR KKK KKKXXXNXRMTI7 IS JOB ENTRY PROGRAM 

RMT17 LUTYPE1,BUFSIZE=256,COMP,CONSOLE,NUMPR=1,NUMPU=1, Cc 
SETUPHDR, DISCINTV=0,VARIABLE,WAITIME=1,LUNAME=JEP22Fil 

R17.PR1 START,PRWIDTH=132,CLASS=JA,NOSEP 

R17.RD1 

R17.PU1 NOSEP 


Figure 53. NJE parameters used with JEP: This is an excerpt from the JES2 
start list member. 
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